A064424 Record high values in A064413.
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
Offset: 1
Links
- T. D. Noe, Table of n, a(n) for n=1..1000
- J. C. Lagarias, E. M. Rains and N. J. A. Sloane, The EKG sequence, Exper. Math. 11 (2002), 437-446.
- N. J. A. Sloane, Transforms
- Index entries for sequences related to EKG sequence
Programs
-
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; L+=i); a>m & break; i=-1)); a } \\ - M. F. Hasler, Nov 28 2010
Extensions
More terms from Naohiro Nomoto, Apr 21 2002
Comments