OFFSET
1,2
COMMENTS
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
MATHEMATICA
Join[{1}, Select[Range[2, 500, 2], First[#] == Total[Rest[#]] & [FactorInteger[#][[All, 2]]] &]] (* Paolo Xausa, Feb 19 2025 *)
CROSSREFS
KEYWORD
nonn,nice
AUTHOR
Reinhard Zumkeller, Aug 20 2002
STATUS
approved