|
|
A256417
|
|
The EKG sequence (A064413) smoothed by replacing each prime p with 2p and each thrice-prime 3p also with 2p.
|
|
5
|
|
|
1, 4, 4, 4, 6, 6, 12, 8, 10, 10, 10, 18, 14, 14, 14, 24, 16, 20, 22, 22, 22, 27, 30, 25, 35, 28, 26, 26, 26, 36, 32, 34, 34, 34, 42, 38, 38, 38, 45, 40, 44, 46, 46, 46, 48, 50, 52, 54, 56, 49, 63, 60, 55, 65, 70, 58, 58, 58, 66, 62, 62
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
This smoothing of A064413 is discussed in Lagarias et al. (2002).
|
|
LINKS
|
J. C. Lagarias, E. M. Rains and N. J. A. Sloane, The EKG sequence, arXiv:math/0204011 [math.NT], 2002.
J. C. Lagarias, E. M. Rains and N. J. A. Sloane, The EKG Sequence, Exper. Math. 11 (2002), 437-446.
|
|
MATHEMATICA
|
ekg[s_] := Block[{m = s[[-1]], k = 3}, While[MemberQ[s, k] || GCD[m, k] == 1, k++]; Append[s, k]];
|
|
PROG
|
(Haskell)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|