OFFSET
1,2
FORMULA
MATHEMATICA
t = {1}; For[k = 6, k < 100000, k++, If[! PrimeQ[k], Mult = 1; While[! PrimeQ[k*Mult + 1], Mult = Mult + 1]; If[Mult > t[[-1]], AppendTo[t, Mult]]]]; t
CROSSREFS
KEYWORD
nonn,more
AUTHOR
William J. Keith, Oct 26 2012
EXTENSIONS
a(21)-a(34) from Amiram Eldar, Jun 05 2022
STATUS
approved