|
Search: id:A140867
|
|
| |
|
| 8, 33, 88, 132, 1265, 768, 2657, 11413, 8755, 50965, 8453, 57258, 124486, 609703, 791190, 955961, 826855, 984638, 2095061, 4196516, 5776666, 6481631, 22355042, 42972320, 11873562, 70956435, 47737822, 57344057, 57651771, 191061462
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
PROGRAM
|
(PARI) is_A014134(n)=for(k=0, sqrtint(n*2), issquare(n-k*(k+1)/2)&return); 1
/* length of run starting at n */
rl(n)=local(t=n); while(is_A014134(n++), ); n-t
/* print [ k, a[k] ] as defined above */
{s=0; for(n=1, 10^6, is_A014134(n)|next; t=n; while(is_A014134(n++), ); bittest(s, n-t)&next; s+=1<<(n-t); print1([n-t, t]", "))}
|
|
CROSSREFS
|
Sequence in context: A044466 A022274 A118312 this_sequence A114105 A014820 A070736
Adjacent sequences: A140864 A140865 A140866 this_sequence A140868 A140869 A140870
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
David W. Wilson (davidwwilson(AT)comcast.net), Jan 05 2009
|
|
EXTENSIONS
|
More terms and PARI code from M. F. Hasler, Jan 05 2009
a(19)-a(30) from Donovan Johnson (donovan.johnson(AT)yahoo.com), Feb 07 2009
|
|
|
Search completed in 0.002 seconds
|
