A066174 First member of a prime sextet: p, (p-1)/2, (p-3)/4, (p-7)/8, (p-15)/16, (p-31)/32.
2879, 2029439, 4068479, 12968639, 25945919, 34214399, 35925119, 37715519, 42684479, 51158399, 57794879, 62663999, 69255359, 71850239, 74543039, 83394239, 91166399, 103721279, 106879679, 121094399, 126785279, 130844159
Offset: 1
Keywords
Programs
-
Mathematica
f[n_]:=(n-1)/2;lst={};Do[p=Prime[n];If[PrimeQ[a=f[p]],If[PrimeQ[b=f[a]],If[PrimeQ[c=f[b]],If[PrimeQ[d=f[c]],If[PrimeQ[e=f[d]],AppendTo[lst,p]]]]]],{n,11!}];lst (* Vladimir Joseph Stephan Orlovsky, Mar 10 2010 *) Select[Prime[Range[7424000]],AllTrue[{(#-1)/2,(#-3)/4,(#-7)/8,(#-15)/16,(#-31)/32},PrimeQ]&] (* Harvey P. Dale, Apr 07 2025 *)
Extensions
More terms from Don Reble, Dec 17 2001