|
|
A251239
|
|
Indices of prime numbers in A098550.
|
|
15
|
|
|
2, 3, 9, 15, 22, 23, 30, 43, 51, 61, 62, 79, 87, 88, 101, 114, 127, 132, 142, 153, 158, 167, 175, 194, 204, 215, 222, 233, 238, 247, 274, 283, 296, 301, 324, 329, 338, 355, 364, 375, 386, 393, 414, 423, 430, 435, 452, 479, 490, 497, 506, 523, 528, 541, 550
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
It is conjectured that every prime appears in A098550, and if so then A098550(a(n)) = A000040(n). [Comment edited by N. J. A. Sloane, Dec 15 2014] [It is now known that every prime appears in A098550, although it is not known that they appear in their right order. - N. J. A. Sloane, Dec 25 2014]
|
|
LINKS
|
|
|
MATHEMATICA
|
a098850[lst_List] :=
Block[{k = 4},
While[GCD[lst[[-2]], k] == 1 || GCD[lst[[-1]], k] > 1 ||
MemberQ[lst, k], k++]; Append[lst, k]];
a251239[n_] :=
|
|
PROG
|
(Haskell)
a251239 n = a251239_list !! (n-1)
a251239_list = filter ((== 1) . a010051' . a098550) [1..]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|