|
|
A066174
|
|
First member of a prime sextet: p, (p-1)/2, (p-3)/4, (p-7)/8, (p-15)/16, (p-31)/32.
|
|
1
|
|
|
2879, 2029439, 4068479, 12968639, 25945919, 34214399, 35925119, 37715519, 42684479, 51158399, 57794879, 62663999, 69255359, 71850239, 74543039, 83394239, 91166399, 103721279, 106879679, 121094399, 126785279, 130844159
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|