OFFSET
1,1
COMMENTS
EXAMPLE
MATHEMATICA
(* function a191746[ ] is defined in A344147 *)
a344148[n_] := Select[a191746[n] + 2, PrimeQ]
a344148[500]
CROSSREFS
KEYWORD
nonn
AUTHOR
Hartmut F. W. Hoft, May 10 2021
STATUS
approved