|
|
A064424
|
|
Record high values in A064413.
|
|
3
|
|
|
1, 2, 4, 6, 9, 12, 15, 18, 21, 24, 33, 35, 39, 51, 57, 69, 70, 87, 93, 111, 123, 129, 141, 159, 177, 183, 201, 213, 219, 237, 249, 267, 291, 303, 309, 321, 327, 339, 381, 393, 411, 417, 447, 453, 471, 489, 501, 519, 537, 543, 573, 579, 591, 597
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
|
|
LINKS
|
J. C. Lagarias, E. M. Rains and N. J. A. Sloane, The EKG sequence, Exper. Math. 11 (2002), 437-446.
|
|
PROG
|
(PARI) A064424(N, show=0)={ my(a=min(N, 2), u=0, L=3, m); show & print1(1); for( k=3, N, m=a; show & print1(", "m); for( i=0, 1e9, bittest(u, i) & next; gcd(a, L+i)>1 | next; a=L+i; if( i, u+=1<<i, while( bittest(u, i++), ); u>>=i; L+=i); a>m & break; i=-1)); a } \\ - M. F. Hasler, Nov 28 2010
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|