A140867 Start of the first run of exactly n integers in A014134.

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

Offset

1,1

Links

Donovan Johnson, Table of n, a(n) for n = 1..56 (terms < 10^12)

Prog

(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: A118312 A212679 A204468 * A212133 A212574 A210698

Adjacent sequences: A140864 A140865 A140866 * A140868 A140869 A140870

Keyword

nonn

Author

David W. Wilson, Jan 05 2009

Extensions

More terms and PARI code from M. F. Hasler, Jan 05 2009

a(19)-a(30) from Donovan Johnson, Feb 07 2009

Status

approved