|
|
|
|
193, 53069, 58422233, 1348470667, 2847740783, 3237916229, 5029745827, 7643871979, 15107731019, 17902513283, 21052092827, 22187962591, 28412311451, 59363922119, 81459096899, 85780812149, 102742076659, 123894775231, 137692362377, 143889901511, 170038274723, 174648621811
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
|
|
MATHEMATICA
|
(* function a037074[ ] and support functions are defined in A074040 *)
a191746[n_] := Rest[FoldList[Plus, 0, a037074[n]]]
a344147x[n_] := Select[a191746[n], PrimeQ]
a344147[550]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|