A064471 The odd subsequence of A064413.

1, 3, 9, 5, 15, 7, 21, 11, 33, 27, 25, 35, 13, 39, 17, 51, 19, 57, 45, 23, 69, 49, 63, 55, 65, 29, 87, 31, 93, 37, 111, 75, 41, 123, 81, 77, 43, 129, 85, 95, 47, 141, 91, 99, 105, 53, 159, 59, 177, 117, 115, 125, 61, 183, 119, 133, 121, 143, 67, 201

Offset

1,2

Links

Table of n, a(n) for n=1..60.

J. C. Lagarias, E. M. Rains and N. J. A. Sloane, The EKG sequence, Exper. Math. 11 (2002), 437-446.

Index entries for sequences related to EKG sequence

Mathematica

nmax = 140;
ekg[s_] := Block[{m = s[[-1]], k = 3}, While[MemberQ[s, k] || GCD[m, k] == 1, k++]; Append[s, k]];
EKG = Nest[ekg, {1, 2}, nmax];
Select[EKG, OddQ] (* Jean-François Alcover, Feb 13 2019, after Robert G. Wilson v in A064413 *)

Crossrefs

Cf. A064413.

Sequence in context: A084530 A070355 A129145 * A264798 A054509 A134001

Adjacent sequences: A064468 A064469 A064470 * A064472 A064473 A064474

Keyword

nonn

Author

N. J. A. Sloane, Oct 05 2001

Status

approved