OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[ Range[5000], IntegerQ[ Sqrt[ Apply[ Plus, Delete[ Divisors[ # ], -1]]]] && IntegerQ[ Sqrt[ Apply[ Times, Delete[Divisors[ # ], -1]]]] && ! PrimeQ[ # ] & ]
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Robert G. Wilson v, Oct 14 2001
STATUS
approved