OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
308 is a term: 308 = 2^2*7*11, 2+2+7+11 = 22, and 22/2 = 11.
MATHEMATICA
q[k_] := Module[{f = FactorInteger[k]}, f[[1, 1]] * f[[-1, 1]] == Plus @@ Times @@@ f]; Select[Range[2, 10^4], q] (* Amiram Eldar, Nov 03 2024 *)
PROG
(PARI) is(k) = if(k > 1, my(f = factor(k)); f[1, 1] * f[#f~, 1] == f[, 1]~ * f[, 2], 0); \\ Amiram Eldar, Nov 03 2024
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Jason Earls, Jul 18 2003
STATUS
approved