OFFSET
1,5
MATHEMATICA
Table[k = 1; While[ ! PrimeQ[6*k*Prime[n]^2 - 1], k++ ]; k, {n, 102}] (* Ray Chandler, Oct 08 2005 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Pierre CAMI, Sep 18 2005
EXTENSIONS
Extended by Ray Chandler, Oct 08 2005
STATUS
approved