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,1

Links

Table of n, a(n) for n=1..22.

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 *)

Crossrefs

Sequence in context: A286526 A081427 A101999 * A175750 A179703 A260369

Adjacent sequences: A066171 A066172 A066173 * A066175 A066176 A066177

Keyword

nonn

Author

Vladeta Jovovic, Dec 15 2001

Extensions

More terms from Don Reble, Dec 17 2001

Status

approved