A387415 -id:A387415 - cp's OEIS frontend

A387411 Numbers k such that the odd part of (1+k) divides (1+A003961(k)), where A003961 is fully multiplicative with a(p) = nextprime(p).

1, 3, 4, 7, 10, 15, 18, 23, 27, 31, 47, 57, 63, 95, 119, 127, 255, 348, 383, 415, 447, 511, 575, 695, 767, 959, 1023, 1054, 1071, 1535, 1919, 2047, 2626, 3471, 3839, 4095, 4415, 6815, 8191, 8703, 13823, 16383, 31743, 32767, 39895, 42367, 48127, 64607, 65535, 68727, 74495, 81919, 92159, 98303, 113535, 124671, 131071

Offset: 1

Antti Karttunen, Sep 01 2025

Like in many sequences of this type, the criterion seems to select for numbers with a long tail of trailing 1-bits. Terms that are not in A004767 are: 1, 4, 10, 18, 57, 348, 1054, 2626, 675348, 1869741, 12371554, 14070141, 1158654378, 1673018314, etc.

Antti Karttunen, Table of n, a(n) for n = 1..159
Index entries for sequences computed from indices in prime factorization

Cf. A000265, A003961, A004767.
Subsequences: A000225, A348514 (which is also a subsequence of A387414).
For similar sequences, see A336700, A387410, A387415, A387410, A387418, A387419.

a3961[x_] := Apply[Times, Prime[PrimePi[#1] + 1]^#2 & @@@ FactorInteger[x]] - Boole[x == 1];
a265[x_] := x/2^IntegerExponent[x, 2];
Select[Range[2^17], Divisible[1 + a3961[#], a265[# + 1] ] &] (* Michael De Vlieger, Sep 01 2025 *)

A000265(n) = (n>>valuation(n,2));
A003961(n) = { my(f = factor(n)); for (i=1, #f~, f[i, 1] = nextprime(f[i, 1]+1)); factorback(f); };
isA387411(n) = !((1+A003961(n))%A000265(1+n));

A387410 Numbers k such that the odd part of (1+k) divides (1 + odd part of A048250(k)), where A048250 is sum of the squarefree divisors of n.

Original entry on oeis.org

1, 3, 7, 15, 31, 63, 127, 255, 511, 639, 1023, 2047, 2431, 4095, 5247, 8191, 14335, 16383, 32767, 40959, 44031, 57855, 65535, 90111, 126975, 131071, 204799, 229375, 262143, 376831, 524287, 923647, 1048575, 1632255, 2056191, 2097151, 2621439, 2744319, 4194303, 6815743, 8388607, 8781823, 16777215, 19922943, 24068095

Offset: 1

Antti Karttunen, Sep 01 2025

Like in many sequences of this type, the criterion seems to strongly select for numbers with a long tail of trailing 1-bits. The initial 1 is probably the only term that is not in A004767.

Cf. A000225 (subsequence), A000265, A004767, A048250.

For similar sequences, see A336700, A387411, A387415, A387418, A387419.

A000265(n) = (n>>valuation(n,2));
A048250(n) = factorback(apply(p -> p+1,factor(n)[,1]));
isA387410(n) = !((1+A000265(A048250(n)))%A000265(1+n));

A387418 Numbers k such that the odd part of (1+k) divides (1 + odd part of A034448(k)), where A034448 is unitary sigma (usigma).

Original entry on oeis.org

1, 3, 7, 15, 31, 63, 127, 255, 511, 1023, 1791, 2047, 2431, 4095, 8191, 14335, 14847, 16383, 27391, 32767, 44031, 57855, 65535, 114687, 131071, 204799, 262143, 376831, 524287, 923647, 1048575, 1632255, 2056191, 2097151, 2744319, 4194303, 6815743, 8388607, 8781823, 8978431, 12058623, 16777215, 19922943, 24068095

Offset: 1

Antti Karttunen, Sep 01 2025

Like in many sequences of this type, the criterion seems to strongly select for numbers with a long tail of trailing 1-bits. The initial 1 is probably the only term that is not in A004767.

Cf. A000225 (subsequence), A000265, A002827, A004767, A034448.

For similar sequences, see A336700, A387410, A387415, A387419.

A000265(n) = (n>>valuation(n,2));
A034448(n) = { my(f=factorint(n)); prod(k=1, #f~, 1+(f[k, 1]^f[k, 2])); };
isA387418(n) = !((1+A000265(A034448(n)))%A000265(1+n));

A387419 Numbers k such that the odd part of (1+k) divides (1 + odd part of A003959(k)), where A003959 is multiplicative with a(p^e) = (p+1)^e.

Original entry on oeis.org

1, 3, 4, 7, 15, 31, 40, 63, 127, 255, 511, 639, 1023, 2047, 2175, 2431, 4095, 5247, 8191, 14335, 16383, 32767, 40959, 44031, 57855, 65535, 90111, 131071, 204799, 262143, 376831, 524287, 923647, 1048575, 1632255, 2056191, 2097151, 2621439, 2744319, 4194303, 6815743, 8388607, 8781823, 16777215, 19922943, 24068095

Offset: 1

Antti Karttunen, Sep 01 2025

Like in many sequences of this type, the criterion seems to strongly select for numbers with a long tail of trailing 1-bits. Terms 1, 4 and 40 are probably the only terms that are not in A004767.

Cf. A000225 (subsequence), A000265, A003959, A004767.

For similar sequences, see A336700, A387410, A387411, A387415, A387418.

A000265(n) = (n>>valuation(n,2));
A003959(n) = { my(f = factor(n)); for(i=1, #f~, f[i, 1]++); factorback(f); };
isA387419(n) = !((1+A000265(A003959(n)))%A000265(1+n));

cp's OEIS Frontend

A387411 Numbers k such that the odd part of (1+k) divides (1+A003961(k)), where A003961 is fully multiplicative with a(p) = nextprime(p).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI

A387410 Numbers k such that the odd part of (1+k) divides (1 + odd part of A048250(k)), where A048250 is sum of the squarefree divisors of n.

Views

Author

Keywords

Comments

Crossrefs

Programs

PARI

A387418 Numbers k such that the odd part of (1+k) divides (1 + odd part of A034448(k)), where A034448 is unitary sigma (usigma).

Views

Author

Keywords

Comments

Crossrefs

Programs

PARI

A387419 Numbers k such that the odd part of (1+k) divides (1 + odd part of A003959(k)), where A003959 is multiplicative with a(p^e) = (p+1)^e.

Views

Author

Keywords

Comments

Crossrefs

Programs

PARI