OFFSET
1,1
COMMENTS
FORMULA
a(n) = A324699(n) + 1.
MATHEMATICA
aQ[n_]:=Switch[n, 0, False, 2, True, _, And@@Cases[FactorInteger[n-1], {p_, k_}:>aQ[PrimePi[p]]]];
Select[Range[0, 100], aQ]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Mar 11 2019
STATUS
approved