OFFSET
1,1
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
Hartmut F. W. Hoft, May 10 2021
STATUS
approved