|
|
A064957
|
|
Where the odd terms appear in A064413.
|
|
6
|
|
|
1, 5, 6, 10, 11, 14, 15, 20, 21, 22, 24, 25, 28, 29, 33, 34, 37, 38, 39, 43, 44, 50, 51, 53, 54, 57, 58, 61, 62, 67, 68, 69, 74, 75, 76, 78, 81, 82, 84, 85, 89, 90, 93, 96, 97, 100, 101, 107, 108, 109, 111, 112, 115, 116, 118, 119, 124, 125, 128, 129
(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, arXiv:math/0204011 [math.NT]; Exper. Math. 11 (2002), 437-446.
|
|
MATHEMATICA
|
ekg[s_List] := Block[{m = s[[-1]], k = 3}, While[MemberQ[s, k] || GCD[m, k] == 1, k++]; Append[s, k]]; A064413 = Nest[ekg, {1, 2}, 200];
|
|
PROG
|
(Haskell)
import Data.List (findIndices)
a064957 n = a064957_list !! (n-1)
a064957_list = map (+ 1) $ findIndices odd a064413_list
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|