OFFSET
1,1
MATHEMATICA
sk[n_]:=Module[{k=n+1, p=Prime[n]+1}, While[Mod[Prime[k]+1, p]!=0, k++]; k]; Array[sk, 70] (* Harvey P. Dale, Nov 13 2022 *)
PROG
(PARI) for(s=1, 100, n=s+1; while(frac((prime(n)+1)/(prime(s)+1))>0, n++); print1(n, ", "); )
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Benoit Cloitre, May 01 2002
STATUS
approved