OFFSET
1,1
COMMENTS
Numbers n such that n remains prime through 3 iterations of function f(x) = 2x - 1.
LINKS
EXAMPLE
Quadruplets are (1531,3061,6121,12241), (2131,4261,8521,17041), ...
MATHEMATICA
Select[Prime[Range[9000]], And@@PrimeQ[NestList[2#-1&, #, 3]]&] (* Harvey P. Dale, May 27 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Patrick De Geest, Aug 15 2000
EXTENSIONS
Offset changed by Andrew Howroyd, Aug 13 2024
STATUS
approved