A263092 - OEIS

A263092

Numbers whose squares are in A236562; numbers n such that there is at least one such k for which k - d(k) = n^2, where d(k) is the number of divisors of k (A000005).

0, 1, 2, 3, 4, 9, 11, 12, 13, 15, 17, 19, 21, 23, 24, 25, 29, 30, 31, 32, 33, 36, 38, 39, 40, 41, 42, 43, 44, 45, 48, 49, 51, 52, 53, 55, 57, 61, 63, 64, 65, 66, 68, 69, 70, 71, 72, 74, 75, 76, 77, 79, 80, 81, 83, 84, 86, 87, 88, 91, 92, 93, 96, 97, 99, 101, 102, 105, 107, 108, 109

(list; graph; refs; listen; history; text; internal format)

OFFSET

0,3

COMMENTS

Starting offset is zero, because a(0)=0 is a special case in this sequence.

Numbers n for which A060990(n^2) = A263087(n) > 0.

Numbers n for which A049820(x) = n^2 has a solution.

LINKS

Antti Karttunen, Table of n, a(n) for n = 0..20763

PROG

(PARI)

\\ Compute A263092 and A263094 at the same time:

A060990(n) = { my(k = n + 1440, s=0); while(k > n, if(((k-numdiv(k)) == n), s++); k--; ); s}; \\ Hard limit 1440 good for at least up to A002182(67) = 1102701600 as A002183(67) = 1440.

n = 0; k = 0; while((n^2)<1102701600, if((A060990(n*n) > 0), write("b263092.txt", k, " ", n); write("b263094.txt", k, " ", (n*n)); k++; ); n++; if(!(n%8192), print1(n, ", k=", k, ", ")); );

(Scheme, with Antti Karttunen's IntSeq-library)

(define A263092 (MATCHING-POS 0 0 (lambda (n) (not (zero? (A060990 (* n n)))))))

(define A263092 (NONZERO-POS 0 0 A263087))

CROSSREFS

Complement: A263093.

Cf. A000005, A000196, A049820, A060990, A236562, A263087, A263098.

Cf. A263094 (the squares of these numbers).

Cf. A262515 (a subsequence).

Sequence in context: A376656 A068334 A283874 * A118223 A359219 A212989

Adjacent sequences: A263089 A263090 A263091 * A263093 A263094 A263095

KEYWORD

nonn

AUTHOR

Antti Karttunen, Oct 11 2015

STATUS

approved