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
Keywords
Examples
12 = 2^2*3, 18 = 2*3^2, ... 600 = 2^3*3*5^2, ... 158760 = 2^3*3^4*5*7^2, ...
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000
Programs
-
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