cp's OEIS Frontend

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.

Showing 1-8 of 8 results.

A339817 Squarefree numbers k > 1 for which the 2-adic valuation of phi(k) does not exceed the 2-adic valuation of k-1.

Original entry on oeis.org

2, 3, 5, 7, 11, 13, 17, 19, 21, 23, 29, 31, 33, 37, 41, 43, 47, 53, 57, 59, 61, 65, 67, 69, 71, 73, 77, 79, 83, 89, 93, 97, 101, 103, 107, 109, 113, 127, 129, 131, 133, 137, 139, 141, 145, 149, 151, 157, 161, 163, 167, 173, 177, 179, 181, 191, 193, 197, 199, 201, 209, 211, 213, 217, 223, 227, 229, 233, 237, 239, 241
Offset: 1

Views

Author

Antti Karttunen, Dec 19 2020

Keywords

Comments

After 2, terms of A003961(A019565(A339816(i))) [or equally, of A019565(2*A339816(i))], for i = 1.., sorted into ascending order.
Natural numbers n that satisfy equation y * phi(n) = n - 1 (with y an integer) all occur in this sequence. Lehmer conjectured that there are no solutions such that n is composite (and thus y > 1).
From Antti Karttunen, Dec 22-26 2020: (Start)
Composite terms in this sequence are all of the form 4u+1 (A016813, A091113).
Generally, if any term k > 2 here has x prime divisors (which are all odd and distinct, i.e., A001221(k) = A001222(k) = x), then k is of the form 2^x * u + 1 (where u maybe even or odd), because each prime divisor of k contributes at least one instance of 2 in phi(k). Specifically, each prime factor of the form 4u+3 (A002145) contributes one instance of 2 (+1 to the 2-adic valuation), while primes of the form 4u+1 (A002144) contribute at least +2 to the 2-adic valuation. There must be an even number of 4u+3 primes, as otherwise the product would be of the form 4u+3. On the other hand, although all the terms of A016105 occur here, none of them occurs in A339870.
If the only terms this sequence shares with A339879 are the primes (A000040), then Lehmer's conjecture certainly holds. Similarly if the sequences A339818 and A339869 do not have any common terms.
(End)

Crossrefs

Programs

  • Mathematica
    Select[Range[2, 250], SquareFreeQ[#] && IntegerExponent[EulerPhi[#], 2] <= IntegerExponent[# - 1, 2] &] (* Amiram Eldar, Feb 17 2021 *)
  • PARI
    isA339817(n) = ((n>1)&&issquarefree(n)&&(valuation(eulerphi(n),2)<=valuation(n-1,2)));

A339869 Carmichael numbers k for which A053575(k) [the odd part of phi] divides k-1.

Original entry on oeis.org

561, 1105, 2465, 6601, 8911, 10585, 46657, 62745, 162401, 410041, 449065, 5148001, 5632705, 6313681, 6840001, 7207201, 11119105, 11921001, 19683001, 21584305, 26719701, 41298985, 55462177, 64774081, 67371265, 79411201, 83966401, 87318001, 99861985, 100427041, 172290241, 189941761, 484662529, 790623289, 809883361
Offset: 1

Views

Author

Antti Karttunen, Dec 22 2020

Keywords

Comments

Lehmer conjectured that the equation k * phi(n) = n - 1 (with k integer) has no solutions for any composite n (i.e., when k > 1). If this sequence has no common terms with A339818, then the conjecture certainly holds.

Crossrefs

Intersection of A002997 and A339880.
Complement of A340092 in A002997.
Cf. also A339818, A339878, A339909.

Programs

  • Mathematica
    carmichaels = Cases[Import["https://oeis.org/A002997/b002997.txt", "Table"], {, }][[;; , 2]]; oddPart[n_] := n/2^IntegerExponent[n, 2]; q[n_] := Divisible[n - 1, oddPart[EulerPhi[n]]]; Select[carmichaels, q] (* Amiram Eldar, Dec 26 2020 *)
  • PARI
    A000265(n) = (n>>valuation(n, 2));
    A002322(n) = lcm(znstar(n)[2]);
    isA339869(n) = ((n>1)&&!isprime(n)&&(!((n-1)%A002322(n)))&&!((n-1)%A000265(eulerphi(n))));

A339870 Composite numbers k of the form 4u+1 for which the odd part of phi(k) divides k-1.

Original entry on oeis.org

85, 561, 1105, 1261, 1285, 2465, 4369, 6601, 8245, 8481, 9061, 9605, 10585, 16405, 16705, 17733, 18721, 19669, 21845, 23001, 28645, 30889, 38165, 42121, 43165, 46657, 54741, 56797, 57205, 62745, 65365, 74593, 78013, 83665, 88561, 91001, 106141, 117181, 124645, 126701, 134521, 136981, 141661, 162401, 171205, 176437
Offset: 1

Views

Author

Antti Karttunen, Dec 22 2020

Keywords

Comments

From Antti Karttunen, Dec 26 2020: (Start)
Equally, squarefree composite numbers k of the form 4u+1 for which A336466(k) divides k-1. This follows because on squarefree n, A336466(n) = A053575(n).
No common terms with A016105, because 4xy + 2(x+y) + 1 does not divide 4xy + 3(x+y) + 2 for any distinct x, y >= 0 (where 4x+3 and 4y+3 are the two prime factors of Blum integers).
This can also seen by another way: If this sequence contained any Blum integers, then, because A016105 is a subsequence of A339817, we would have found a composite number n satisfying Lehmer's totient problem y * phi(n) = n-1, for some integer y > 1. But Lehmer proved that such solutions should have at least 7 distinct prime factors, while Blum integers have only two.
Moreover, it seems that none of the terms of A167181 may occur here, and a few of A137409 (i.e., of A125667). See A339875 for those terms.
(End)

Examples

			85 = 4*21 + 1 = 5*17, thus phi(85) = 4*16 = 64, the odd part of which is A000265(64) = 1, which certainly divides 85-1, therefore 85 is included as a term.
561 = 4*140 + 1 = 3*11*17, thus phi(561) = 2*10*16 = 320, the odd part of which is A000265(320) = 5, which divides 560, therefore 561 is included.
		

Crossrefs

Subsequence of A005117.
Intersection of A091113 and A339880.
Cf. A339875 (a subsequence).
Cf. also comments in A339817.

Programs

  • Mathematica
    odd[n_] := n/2^IntegerExponent[n, 2]; Select[4*Range[45000] + 1, CompositeQ[#] && Divisible[# - 1, odd[EulerPhi[#]]] &] (* Amiram Eldar, Feb 17 2021 *)
  • PARI
    A000265(n) = (n>>valuation(n, 2));
    isA339870(n) = ((n>1)&&!isprime(n)&&(1==(n%4))&&!((n-1)%A000265(eulerphi(n))));

A339879 Numbers k for which k-1 is a multiple of A053575(k) [the odd part of phi(k)].

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 10, 11, 12, 13, 15, 16, 17, 19, 20, 23, 24, 28, 29, 30, 31, 32, 34, 37, 40, 41, 43, 47, 48, 51, 52, 53, 59, 60, 61, 64, 66, 67, 68, 70, 71, 73, 79, 80, 83, 85, 89, 91, 96, 97, 101, 102, 103, 107, 109, 112, 113, 120, 127, 128, 130, 131, 136, 137, 139, 149, 151, 157, 160, 163, 167, 170, 173, 176, 179
Offset: 1

Views

Author

Antti Karttunen, Dec 24 2020

Keywords

Crossrefs

Subsequences: A000040, and A339880 (odd composite terms), A339869, A339870.
Cf. also comments in A339817.

Programs

A339973 Numbers k for which A019565(2k)-1 is a multiple of A000265(phi(A019565(2k))).

Original entry on oeis.org

0, 1, 2, 3, 4, 8, 16, 20, 32, 33, 34, 35, 38, 41, 50, 56, 64, 128, 176, 256, 259, 290, 512, 1024, 2048, 2056, 2081, 2089, 2096, 2180, 4096, 4130, 8192, 9218, 16384, 18436, 32768, 65536, 131072, 131140, 262144, 279552, 524288, 524308, 524546, 1048576, 1048736, 2097152, 4194304, 4194352, 4194420, 4196656, 4202499, 8388608
Offset: 1

Views

Author

Antti Karttunen, Dec 26 2020

Keywords

Comments

Numbers k such that A339971(k) divides A339809(2k).
Union of {0}, A000079 and the terms of (1/2)*A048675(A339880(i)), for i >= 1, sorted into ascending order.

Crossrefs

Positions of zeros in A339898, and of ones in A339901.
Cf. A000079 (subsequence).
Cf. also A339816, A339906.

Programs

  • PARI
    A019565(n) = { my(m=1, p=1); while(n>0, p = nextprime(1+p); if(n%2, m *= p); n >>= 1); (m); };
    isA339971(n) = { my(x=A019565(2*n)); !((x-1)%A000265(eulerphi(x))); };

A340077 Odd numbers k for which k-1 is a multiple of A053575(k) [the odd part of phi(k)].

Original entry on oeis.org

1, 3, 5, 7, 11, 13, 15, 17, 19, 23, 29, 31, 37, 41, 43, 47, 51, 53, 59, 61, 67, 71, 73, 79, 83, 85, 89, 91, 97, 101, 103, 107, 109, 113, 127, 131, 137, 139, 149, 151, 157, 163, 167, 173, 179, 181, 191, 193, 197, 199, 211, 223, 227, 229, 233, 239, 241, 251, 255, 257, 263, 269, 271, 277, 281, 283, 293, 307, 311, 313
Offset: 1

Views

Author

Antti Karttunen, Dec 29 2020

Keywords

Comments

Sequence A003961(A340076(i)), i = 1.., sorted into ascending order. In other words, this sequence consists of such odd numbers k that A064989(k) is in A340076.

Crossrefs

Subsequence of A339879.
Subsequences: A065091, A339880 (composite terms), A339869, A339870 (and their further subsequences).

Programs

  • PARI
    A000265(n) = (n>>valuation(n, 2));
    isA340077(n) = ((n%2)&&!((n-1)%A000265(eulerphi(n))));
    
  • PARI
    A064989(n) = { my(f=factor(n)); if((n>1 && f[1,1]==2), f[1,2] = 0); for (i=1, #f~, f[i,1] = precprime(f[i,1]-1)); factorback(f) };
    isA340077(n) = ((n%2)&&(1==A340075(A064989(n)))); \\ Needs also code from A340075.

A339974 Odd primes that do not occur as the greatest prime divisor of any such odd composite k for which the odd part of phi(k) divides k-1.

Original entry on oeis.org

3, 7, 11, 19, 31, 37, 59, 61, 83, 103, 107, 131
Offset: 1

Views

Author

Antti Karttunen, Dec 27 2020

Keywords

Comments

Odd primes that do not occur as the greatest prime divisor (A006530) of any of the terms of A339880.
Naive way of computing (essentially an exhaustive search): apply A000523 to the terms of A339973, select unique values, add +2, and take the corresponding prime.
Questions: Is this sequence finite? If infinite, are there still only a finite number of 4k+1 primes (A002144) like 37 and 61?
a(13) >= 149, if it exists.

Examples

			Prime 127 is NOT a member, because there exists a squarefree composite number 10697881195 = 5*29*53*97*113*127, for which A053575(10697881195) = A336466(10697881195) = 120393, which is a divisor of 10697881195-1. Note that 10697881195 is a term of A339880, but not that of A339870.
		

Crossrefs

A340091 Odd numbers k such that A064989(k) is in A340151.

Original entry on oeis.org

679, 703, 1387, 1729, 1891, 2047, 2509, 2701, 2821, 3277, 3367, 5551, 7471, 7735, 8119, 8827, 9997, 10963, 11305, 12403, 13021, 13747, 13981, 14491, 14701, 15841, 16471, 17563, 19951, 21349, 21907, 21931, 22015, 23959, 24727, 25669, 26281, 27511, 28939, 29341, 31417, 32407, 38503, 39091, 39831, 39865, 40501, 41041
Offset: 1

Views

Author

Antti Karttunen, Dec 31 2020

Keywords

Comments

Sequence A003961(A340151(i)), for i >= 1, sorted into ascending order.
By definition, this has no common terms with A340077 nor any of its subsequences like A339869 or A339880.

Crossrefs

Cf. A340092 (Carmichael numbers in this sequence).

Programs

Showing 1-8 of 8 results.