OFFSET
1,1
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..12443
MATHEMATICA
lim = 40000; Take[Select[Complement[Range@ lim, Sort@ DeleteDuplicates@ Table[n - DivisorSigma[0, n], {n, lim}]], IntegerQ@ Sqrt@ # &], 60] (* Michael De Vlieger, Oct 13 2015 *)
PROG
(PARI) \\ See code in A263093.
(Scheme, with Antti Karttunen's IntSeq-library)
KEYWORD
nonn
AUTHOR
Antti Karttunen, Oct 10 2015
STATUS
approved