OFFSET
1,1
EXAMPLE
127,
30*127^2-1,
42*(30*127^2-1)^2-1,
30*(42*(30*127^2-1)^2-1)^2-1,
84*(30*(42*(30*127^2-1)^2-1)^2-1)^2-1,
516*(84*(30*(42*(30*127^2-1)^2-1)^2-1)^2-1)^2-1,
768*(516*(84*(30*(42*(30*127^2-1)^2-1)^2-1)^2-1)^2-1)^2-1,
804*(768*(516*(84*(30*(42*(30*127^2-1)^2-1)^2-1)^2-1)^2-1)^2-1)^2-1,
4806*(804*(768*(516*(84*(30*(42*(30*127^2-1)^2-1)^2-1)^2-1)^2-1)^2-1)^2-1)^2-1,
2838*(4806*(804*(768*(516*(84*(30*(42*(30*127^2-1)^2-1)^2-1)^2-1)^2-1)^2-1)^2-1)^2-1)^2-1,
174*(2838*(4806*(804*(768*(516*(84*(30*(42*(30*127^2-1)^2-1)^2-1)^2-1)^2-1)^2-1)^2-1)^2-1)^2-1)^2-1,
23418*(174*(2838*(4806*(804*(768*(516*(84*(30*(42*(30*127^2-1)^2-1)^2-1)^2-1)^2-1)^2-1)^2-1)^2-1)^2-1)^2-1)^2-1,
and 22770*(23418*(174*(2838*(4806*(804*(768*(516*(84*(30*(42*(30*127^2-1)^2-1)^2-1)^2-1)^2-1)^2-1)^2-1)^2-1)^2-1)^2-1)^2-1)^2-1,
are primes.
MATHEMATICA
lpf[{n_, t_}]:=Module[{a=t^2, k=6}, While[!PrimeQ[k*a-1], k=k+6]; {k, k*a-1}]; Rest[ NestList[lpf, {127, 127}, 12][[All, 1]]] (* Harvey P. Dale, Apr 25 2017 *)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Pierre CAMI, Sep 17 2005
EXTENSIONS
Edited by Ray Chandler, Sep 26 2005
Definition amended by Georg Fischer, Jun 18 2021
STATUS
approved