A263091 -id:A263091 - cp's OEIS frontend

A045765 k - d(k) never takes these values, where d(k) = A000005(k).

7, 8, 13, 19, 20, 24, 25, 28, 33, 36, 37, 40, 43, 49, 50, 52, 55, 56, 63, 64, 66, 67, 68, 74, 75, 79, 85, 88, 98, 100, 103, 108, 109, 112, 113, 116, 117, 123, 124, 126, 131, 132, 133, 134, 136, 140, 143, 145, 150, 153, 156, 159, 160, 163, 164, 167, 168

Offset: 1

David W. Wilson

nonn

Complement of A236562. - Jaroslav Krizek, Feb 09 2014
Positions of zeros in A060990, leaf-nodes in the tree generated by edge-relation A049820(child) = parent. - Antti Karttunen, Oct 06 2015
Since A000005(x) <= 1 + x/2, k is in the sequence if there are no x <= 2*(k+1) with k = x - d(x). - Robert Israel, Oct 12 2015
This can be improved as: k is in the sequence if there are no x <= k + A002183(2+A261100(k)) with k = x - d(x). Cf. also A070319, A262686. - Antti Karttunen, Oct 12 2015
Luca (2005) proved that this seqeunce is infinite. - Amiram Eldar, Jul 26 2025

Antti Karttunen, Table of n, a(n) for n = 1..10000
Florian Luca, On numbers not of the form n-omega(n), Acta Mathematica Hungarica, Vol. 106, No. 1 (2005), pp. 117-135.

Top row of A262898.
Cf. A000005, A002183, A049820, A060990, A070319, A236562, A236565, A261100, A262511, A262686, A262901, A262902, A262903, A262909, A263081.
Cf. A263091 (primes in this sequence), A263095 (squares).
Cf. A259934 (gives the infinite trunk of the same tree, conjectured to be unique).

N:= 1000: # to get all terms <= N
sort(convert({$1..N} minus {seq(x - numtheory:-tau(x), x=1..2*(1+N))},list)); # Robert Israel, Oct 12 2015

lim = 10000; Take[Complement[Range@ lim, Sort@ DeleteDuplicates@ Table[n - DivisorSigma[0, n], {n, lim}]], 57] (* Michael De Vlieger, Oct 13 2015 *)

allocatemem((2^31)+(2^30));
uplim = 36756720 + 640; \\ = A002182(53) + A002183(53).
v060990 = vector(uplim);
for(n=3, uplim, v060990[n-numdiv(n)]++);
A060990 = n -> if(!n,2,v060990[n]);
uplim2 = 36756720;
n=0; k=1; while(n <= uplim2, if(0==A060990(n), write("b045765_big.txt", k, " ", n); k++); n++;);
\\ Antti Karttunen, Oct 09 2015

(define A045765 (ZERO-POS 1 1 A060990))
;; Using also IntSeq-library of Antti Karttunen, Oct 06 2015

A278494 Primes p for which there does not exist any such integer k that k - A002828(k) = p.

Original entry on oeis.org

2, 5, 7, 13, 17, 23, 29, 31, 37, 47, 61, 79, 89, 97, 101, 103, 109, 113, 127, 157, 167, 193, 197, 199, 223, 229, 241, 257, 269, 271, 281, 293, 313, 317, 337, 353, 359, 383, 389, 397, 401, 409, 421, 433, 439, 449, 461, 463, 487, 509, 541, 569, 577, 593, 601, 607, 631, 647, 653, 673, 677, 709, 719, 727, 751, 761, 769, 773, 797

Offset: 1

Antti Karttunen, Nov 25 2016, with additional comments Nov 28 2016

nonn

Primes that are leaves in the tree defined by edge relation parent = A255131(child), "the least squares beanstalk".
Primes p such that (A002828(1+p) <> 1), (A002828(2+p) <> 2), (A002828(3+p) <> 3) and (A002828(4+p) <> 4).
See comments in A278495 which gives the count of these primes in each range [n^2, (n+1)^2].
This is a subsequence of A045352 as no prime of the form 8n+3 ever occurs in this sequence. This stems from a more general fact that A278490 contains no numbers of the form 8n+3, because A002828(8n+7) = 4 for all n. (See A004215.)

Antti Karttunen, Table of n, a(n) for n = 1..10000

Intersection of A000040 and A278490.
No common terms with A277888, some common terms with A278487.
Subsequence of A045352.
Cf. A002828, A004215, A072401, A255131, A278495, A278496.
Cf. also A263091.

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).

Original entry on oeis.org

25, 36, 49, 64, 100, 196, 256, 324, 400, 484, 676, 729, 784, 1156, 1225, 1369, 2116, 2209, 2500, 2916, 3136, 3364, 3481, 3600, 3844, 4489, 5329, 6084, 6724, 7225, 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

Offset: 1

Antti Karttunen, Oct 10 2015

nonn

Some of the terms are shared with A262687, but none with A262514.

Antti Karttunen, Table of n, a(n) for n = 1..12443

Cf. A000005, A049820, A010052, A060990, A262514, A262687, A263098.
Cf. A263093 (gives the square roots).
Intersection of A000290 and A045765.
Cf. also A263091.

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 *)

PARI
```
\\ See code in A263093.
```

;; With Antti Karttunen's IntSeq-library.
(define A263095 (MATCHING-POS 1 1 (lambda (n) (and (= 1 (A010052 n)) (zero? (A060990 n))))))

A263090 Primes p for which A049820(x) = p has a solution.

Original entry on oeis.org

2, 3, 5, 11, 17, 23, 29, 31, 41, 47, 53, 59, 61, 71, 73, 83, 89, 97, 101, 107, 127, 137, 139, 149, 151, 157, 173, 179, 181, 191, 197, 199, 211, 223, 227, 233, 239, 263, 269, 277, 281, 283, 311, 317, 331, 337, 347, 349, 367, 373, 389, 409, 419, 421, 431, 433, 443, 449, 457, 461, 467, 521, 523, 541, 547, 557, 569, 577, 587, 593, 599, 601, 607, 613, 617, 619, 631, 641, 643

Offset: 1

Antti Karttunen, Oct 11 2015

nonn

Primes p that there is at least one such k for which k - d(k) = p, where d(k) is the number of divisors of k (A000005).

			2 is present, as we have 6 - d(6) = 6 - 4 = 2.
3 is present, as we have 5 - d(5) = 3. The same holds for all lesser twin primes (A001359).

Antti Karttunen, Table of n, a(n) for n = 1..7955

Complement among primes: A263091.
Intersection of A000040 and A236562.
Cf. A001359 (a subsequence).
Cf. A000005, A049820, A060990.
Cf. also A263094.

lim = 10000; s = Select[Sort@ DeleteDuplicates@ Table[n - DivisorSigma[0, n], {n, lim}], PrimeQ]; Take[s, 79] (* Michael De Vlieger, Oct 13 2015 *)

allocatemem(123456789);
uplim1 = 2162160 + 320; \\ = A002182(41) + A002183(41).
v060990 = vector(uplim1);
for(n=3, uplim1, v060990[n-numdiv(n)]++);
A060990 = n -> if(!n,2,v060990[n]);
n=0; forprime(p=2, 131071, if((A060990(p) > 0), n++; write("b263090.txt", n, " ", p)));

;; With Antti Karttunen's IntSeq-library.
(define A263090 (MATCHING-POS 1 1 (lambda (n) (and (= 1 (A010051 n)) (not (zero? (A060990 n)))))))

cp's OEIS Frontend

A045765 k - d(k) never takes these values, where d(k) = A000005(k).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Maple

Mathematica

PARI

Scheme

A278494 Primes p for which there does not exist any such integer k that k - A002828(k) = p.

Views

Author

Keywords

Comments

Links

Crossrefs

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).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI

Scheme

A263090 Primes p for which A049820(x) = p has a solution.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Scheme