A177426 Average of twin prime pairs with multiple and strictly distinct powers.

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

Amiram Eldar, Table of n, a(n) for n = 1..10000

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

Cf. A001358, A014574, A177425.

Sequence in context: A119147 A370395 A226176 * A232384 A086301 A231094

Adjacent sequences: A177423 A177424 A177425 * A177427 A177428 A177429

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, May 07 2010

Status

approved