%I #17 Oct 24 2015 12:31:46
%S 25,36,49,64,100,196,256,324,400,484,676,729,784,1156,1225,1369,2116,
%T 2209,2500,2916,3136,3364,3481,3600,3844,4489,5329,6084,6724,7225,
%U 7921,8100,8836,9025,9604,10000,10609,10816,11236,12100,12996,13456,13924,14884,15376,15625,15876,16129,16384,16900,18225,19600,19881,20164,21904,22500,24025,24964,25921,26896
%N Squares in A045765; numbers n^2 such that there is no such k for which k - d(k) = n^2, where d(k) is the number of divisors of k (A000005).
%C Some of the terms are shared with A262687, but none with A262514.
%H Antti Karttunen, <a href="/A263095/b263095.txt">Table of n, a(n) for n = 1..12443</a>
%t 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 *)
%o (PARI) \\ See code in A263093.
%o (Scheme, with _Antti Karttunen_'s IntSeq-library)
%o (define A263095 (MATCHING-POS 1 1 (lambda (n) (and (= 1 (A010052 n)) (zero? (A060990 n))))))
%Y Cf. A000005, A049820, A010052, A060990, A262514, A262687, A263098.
%Y Cf. A263093 (gives the square roots).
%Y Intersection of A000290 and A045765.
%Y Cf. also A263091.
%K nonn
%O 1,1
%A _Antti Karttunen_, Oct 10 2015