OFFSET
2,1
MATHEMATICA
a[n_]:=Module[{i=1}, Until[Divisible[p+1, Prime[n-1]]&&Divisible[p+1, Prime[n+1]], i++; p=Prime[n]*i]; p]; Array[a, 33, 2] (* James C. McMahon, Aug 18 2025 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Aug 01 2008
EXTENSIONS
Extended by Ray Chandler, Aug 08 2008
STATUS
approved
