login
A140867
Start of the first run of exactly n integers in A014134.
2
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
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