OFFSET
0,1
COMMENTS
See A057684 for definition.
LINKS
Index entries for linear recurrences with constant coefficients, signature (0,0,0,1).
MATHEMATICA
Px1[p_, n_]:=Catch[For[i=1, i<PrimePi[p], i++, If[Divisible[n, Prime[i]], Throw[n/Prime[i]]]]; p*n+1];
NestList[Px1[29, #]&, 29, 100] (* Paolo Xausa, Dec 10 2023 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
N. J. A. Sloane, Oct 20 2000
STATUS
approved