OFFSET
1,1
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
Position[Partition[Table[Total[FactorInteger[n][[All, 1]]], {n, 1200}], 2, 1], _?(IntegerQ[Sqrt[Total[#]]]&)]//Quiet//Flatten (* Harvey P. Dale, Jan 15 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Aug 03 2010
STATUS
approved