|
|
|
|
3, 5, 11, 19, 23, 37, 43, 61, 83, 107, 181, 271, 283, 349, 467, 499, 547, 563, 743, 821, 863, 947, 991, 1013, 1571, 2341, 2437, 2633, 2803, 2837, 2939, 3299, 3373, 3677, 3833, 4073, 4793, 4973, 5387, 5479, 5573, 6043, 6091, 6737, 7907, 8017, 8693, 8867
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
Flatten[Table[If[PrimeQ[Sum[ PrimePi[n], {n, 1, m}]], Sum[PrimePi[n], {n, 1, m}], {}], {m, 1, 200}]]
|
|
PROG
|
(Haskell)
a122516 n = a122516_list !! (n-1)
a122516_list = filter ((== 1) . a010051) a046992_list
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
Definition corrected, Sep 30 2006
|
|
STATUS
|
approved
|
|
|
|