login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A064955 Position of n-th prime in A064413. 13
2, 5, 10, 14, 20, 28, 33, 37, 43, 57, 61, 67, 74, 81, 89, 100, 107, 115, 128, 134, 138, 151, 160, 167, 182, 189, 197, 203, 207, 216, 236, 253, 259, 264, 279, 287, 297, 305, 314, 328, 336, 344, 363, 371, 377, 381, 401, 420, 430, 438, 444, 458, 462, 474, 487, 501, 510, 517, 530, 540, 549, 557, 581, 587, 599, 606, 629, 639, 655, 664, 670, 681, 699, 707, 724, 730, 736, 756, 766, 781, 798, 802, 814, 819, 833, 848, 857, 874, 882, 889, 898, 911, 927, 942, 953, 961, 971, 997, 1004, 1029, 1041, 1059, 1072, 1080, 1087, 1099, 1118, 1135, 1142, 1150, 1156, 1175, 1181, 1190, 1203, 1223, 1232, 1242, 1249, 1258, 1266, 1287, 1298, 1306, 1324, 1350, 1357, 1378, 1391, 1398, 1410, 1425, 1433, 1442, 1456, 1470, 1478, 1504, 1516, 1542, 1546, 1564, 1568, 1578, 1586, 1610, 1626, 1638, 1646, 1652, 1680, 1686, 1693, 1702, 1734, 1739, 1760 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

COMMENTS

It can be shown that this sequence is monotonic.

A073734(a(n)) = A000040(n) for n > 1. [Reinhard Zumkeller, Sep 17 2001]

LINKS

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

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

FORMULA

a(n) = A064664(p(n)).

MATHEMATICA

ekg[s_] := Block[{m = s[[-1]], k = 3}, While[MemberQ[s, k] || GCD[m, k] == 1, k++]; Append[s, k]];

A064413 = Nest[ekg, {1, 2}, 1000];

Position[A064413, _?PrimeQ] // Flatten (* Jean-François Alcover, Nov 03 2018, after Robert G. Wilson v in 064413 *)

PROG

(Haskell)

import Data.List (elemIndex)

import Data.Maybe (fromJust)

a064955 n = a064955_list !! (n-1)

a064955_list =

map ((+ 1) . fromJust . (`elemIndex` a064413_list)) a000040_list

-- Reinhard Zumkeller, Sep 17 2001

CROSSREFS

Cf. A064413, A064425.

Sequence in context: A115757 A159032 A082745 * A352189 A101725 A274453

Adjacent sequences: A064952 A064953 A064954 * A064956 A064957 A064958

KEYWORD

nonn

AUTHOR

N. J. A. Sloane, Oct 30 2001

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 22 04:35 EDT 2023. Contains 361413 sequences. (Running on oeis4.)