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