This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A263095 #21 Mar 16 2025 02:38:46 %S A263095 25,36,49,64,100,196,256,324,400,484,676,729,784,1156,1225,1369,2116, %T A263095 2209,2500,2916,3136,3364,3481,3600,3844,4489,5329,6084,6724,7225, %U A263095 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 A263095 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 A263095 Some of the terms are shared with A262687, but none with A262514. %H A263095 Antti Karttunen, <a href="/A263095/b263095.txt">Table of n, a(n) for n = 1..12443</a> %t A263095 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 A263095 (PARI) \\ See code in A263093. %o A263095 (Scheme) %o A263095 ;; With _Antti Karttunen_'s IntSeq-library. %o A263095 (define A263095 (MATCHING-POS 1 1 (lambda (n) (and (= 1 (A010052 n)) (zero? (A060990 n)))))) %Y A263095 Cf. A000005, A049820, A010052, A060990, A262514, A262687, A263098. %Y A263095 Cf. A263093 (gives the square roots). %Y A263095 Intersection of A000290 and A045765. %Y A263095 Cf. also A263091. %K A263095 nonn %O A263095 1,1 %A A263095 _Antti Karttunen_, Oct 10 2015