help needed in distinguishing two sequences

Max A. maxale at gmail.com
Tue Dec 5 11:33:02 CET 2006


Klaus Brockhaus and Richard Mathar pointed out an error in my computations.
I indeed misread the definition of A055039. So my original list
contained only those elements of the set deffirence of A055039 and
A044075 that are not multiple of 4.

Corrected version:

{ hex14(n)=local(m);m=n;while(m,if(m%16==14,return(1));m\=16);0 }
? for(n=1,10^4, k=n; while(k%4==0,k\=4); if(k%16!=14,next);
if(hex14(k-14)||hex14((k-14)\4),print1(n,",")) )

238,494,750,910,926,942,952,958,1006,1262,1518,1774,1934,1950,
1966,1976,1982,2030,2286,2542,2798,2958,2974,2990,3000,3006,
3054,3310,3566,3598,3614,3630,3640,3646,3662,3678,3694,3704,
3710,3726,3742,3758,3768,3774,3790,3806,3808,3822,3832,3838,
3982,3998,4014,4024,4030,4078,4334,4590,4846,5006,5022,5038,
5048,5054,5102,5358,5614,5870,6030,6046,6062,6072,6078,6126,
6382,6638,6894,7054,7070,7086,7096,7102,7150,7406,7662,7694,
7710,7726,7736,7742,7758,7774,7790,7800,7806,7822,7838,7854,
7864,7870,7886,7902,7904,7918,7928,7934,8078,8094,8110,8120,
8126,8174,8430,8686,8942,9102,9118,9134,9144,9150,9198,9454,
9710,9966

Thanks,
Max

On 12/4/06, Max A. <maxale at gmail.com> wrote:
> On 12/4/06, N. J. A. Sloane <njas at research.att.com> wrote:
>
> > It appears that the first properly contains the second,
> > the numbers 238, 494, ... being in the first but not the second.
> >
> > I will start a new entry, A124169, with 238,494,...
> > Could someone compute further terms (and double-check everything)?
>
> ? hex14(n)=local(m);m=n;while(m,if(m%16==14,return(1));m\=16);0
> ? for(n=1,10^3,if(hex14(n)||hex14(n*4),print1(16*n+14,",")))
>
> 238,494,750,910,926,942,958,1006,1262,1518,1774,1934,1950,1966,
> 1982,2030,2286,2542,2798,2958,2974,2990,3006,3054,3310,3566,3598,
> 3614,3630,3646,3662,3678,3694,3710,3726,3742,3758,3774,3790,3806,
> 3822,3838,3982,3998,4014,4030,4078,4334,4590,4846,5006,5022,5038,
> 5054,5102,5358,5614,5870,6030,6046,6062,6078,6126,6382,6638,6894,
> 7054,7070,7086,7102,7150,7406,7662,7694,7710,7726,7742,7758,7774,
> 7790,7806,7822,7838,7854,7870,7886,7902,7918,7934,8078,8094,8110,
> 8126,8174,8430,8686,8942,9102,9118,9134,9150,9198,9454,9710,9966,
> 10126,10142,10158,10174,10222,10478,10734,10990,11150,11166,11182,
> 11198,11246,11502,11758,11790,11806,11822,11838,11854,11870,11886,
> 11902,11918,11934,11950,11966,11982,11998,12014,12030,12174,12190,
> 12206,12222,12270,12526,12782,13038,13198,13214,13230,13246,13294,
> 13550,13806,14062,14222,14238,14254,14270,14318,14350,14366,14382,
> 14398,14414,14430,14446,14462,14478,14494,14510,14526,14542,14558,
> 14574,14590,14606,14622,14638,14654,14670,14686,14702,14718,14734,
> 14750,14766,14782,14798,14814,14830,14846,14862,14878,14894,14910,
> 14926,14942,14958,14974,14990,15006,15022,15038,15054,15070,15086,
> 15102,15118,15134,15150,15166,15182,15198,15214,15230,15246,15262,
> 15278,15294,15310,15326,15342,15358,15598,15854,15886,15902,15918,
> 15934,15950,15966,15982,15998,16014
>
> Max
>






More information about the SeqFan mailing list