login
A231230
Numbers n such that, in the prime factorization of n, the sum of the primes equals the squared sum of exponents.
0
28, 98, 132, 198, 351, 368, 726, 1092, 1375, 1488, 1521, 1540, 1638, 2232, 2295, 2320, 3008, 3025, 3348, 3822, 3825, 3850, 4048, 4232, 5022, 5390, 5800, 6375, 6591, 6655, 7098, 7980, 8470, 11328, 11375, 11970, 12012, 12432, 13005, 14500, 15925, 16992, 18018
OFFSET
1,1
EXAMPLE
98 = 7^2 * 2, sum of primes is 9, sum of exponents is 3, so 98 is in the sequence.
MATHEMATICA
t = {}; n = 1; While[Length[t] < 50, n++; {p, e} = Transpose[FactorInteger[n]]; If[Total[p] == Total[e]^2, AppendTo[t, n]]]; t (* T. D. Noe, Nov 08 2013 *)
PROG
(PARI) isok(n) = {f = factor(n); sum(i=1, #f~, f[i, 1]) == sum(i=1, #f~, f[i, 2])^2; } \\ Michel Marcus, Nov 07 2013
KEYWORD
nonn
AUTHOR
Alex Ratushnyak, Nov 05 2013
STATUS
approved