|
|
A164519
|
|
Primes p such that p+2 is the square of a product of 3 distinct primes.
|
|
3
|
|
|
53359, 74527, 81223, 127447, 159199, 184039, 189223, 314719, 354023, 370879, 378223, 416023, 439567, 511223, 804607, 974167, 1046527, 1092023, 1177223, 1238767, 1535119, 1600223, 1718719, 2059223, 2082247, 2140367, 2223079
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
EXAMPLE
|
53359 + 2 = 3^2*7^2*11^2. 74527 + 2 = 3^2*7^2*13^2.
|
|
MATHEMATICA
|
f[n_]:=FactorInteger[n][[1, 2]]==2&&Length[FactorInteger[n]]==3&&FactorInteger[n][[2, 2]]==2&&FactorInteger[n][[3, 2]]==2; lst={}; Do[p=Prime[n]; If[f[p+2], AppendTo[lst, p]], {n, 4, 9!}]; lst
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|