A368651 Numbers k such that 2^sigma(k) - k is a prime.

3, 5, 17, 49, 53, 185, 503, 1301, 1689, 1797, 5929, 14747, 20433, 29903, 42137, 64763

Offset

1,1

Comments

If it exists, a(17) > 120000. - Michael S. Branicky, Aug 19 2024

Links

Table of n, a(n) for n=1..16.

Example

5 is in the sequence because 2^sigma(5)-5 = 2^6-5 = 59 is prime.

Mathematica

a[n_] := Select[Range@ n, PrimeQ[2^DivisorSigma[1, #] - #] &]; a[20000]
DeleteCases[ParallelTable[If[PrimeQ[2^DivisorSigma[1, k]-k], k, n], {k, 1, 10^4}], n]

Prog

(Magma) [n: n in[1..10000] | IsPrime((2^SumOfDivisors(n)) - n)];

Crossrefs

Cf. A000043, A000203, A000668, A023194, A023195, A253850, A253851.

Sequence in context: A165452 A106063 A215106 * A006483 A177960 A271659

Adjacent sequences: A368648 A368649 A368650 * A368652 A368653 A368654

Keyword

nonn,more,changed

Author

J.W.L. (Jan) Eerland, Jan 02 2024

Extensions

a(16) from J.W.L. (Jan) Eerland, Jan 25 2024

Status

approved