login
A177426
Average of twin prime pairs with multiple and strictly distinct powers.
1
12, 18, 72, 108, 192, 432, 600, 1152, 1620, 1872, 2088, 2268, 2592, 3168, 4050, 4800, 7128, 7488, 9432, 9720, 10008, 13932, 15972, 17208, 18288, 20232, 21492, 21600, 23040, 23832, 25848, 26892, 27108, 27792, 31392, 32832, 33588, 33750, 34128
OFFSET
1,1
LINKS
EXAMPLE
12 = 2^2*3, 18 = 2*3^2, ... 600 = 2^3*3*5^2, ... 158760 = 2^3*3^4*5*7^2, ...
MATHEMATICA
f[n_]:=Sort[Last/@FactorInteger[n]]; lst={}; Do[If[Length[f[n]]>1&&f[n]==Union@f[n]&&PrimeQ[n-1]&&PrimeQ[n+1], AppendTo[lst, n]], {n, 0, 5*8!}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved