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.

Previous Showing 21-27 of 27 results.

A289258 Prime factors of numbers in A289257.

Original entry on oeis.org

3, 19, 163, 1459, 8803, 17497, 52489, 78787, 164617, 370387
Offset: 1

Views

Author

Michel Marcus, Jun 29 2017

Keywords

Comments

Kalmynin conjectures that this sequence is infinite.
I have some doubts about terms 17497, 52489, 164617 that are == 1 (mod 8).

Crossrefs

A290184 Numbers k such that k mod phi(k) = lambda(k).

Original entry on oeis.org

20, 42, 100, 156, 272, 294, 342, 500, 660, 780, 1332, 1980, 2028, 2058, 2500, 3900, 4624, 5256, 5940, 6498, 7260, 9312, 10140, 11772, 12500, 14406, 17820, 19500, 21780, 26364, 26406, 37056, 49284, 50700, 53460, 62244, 62500, 65340, 65792, 78608, 79860, 97500
Offset: 1

Views

Author

Thomas Ordowski, Jul 23 2017

Keywords

Comments

Numbers k such that A068494(k) = A002322(k).
If k is in the sequence, then k*gpf(k) is in the sequence.
Are there infinitely many terms of the form (p-1)*p, where p is a prime?

Crossrefs

Subsequence of A124240.

Programs

  • Maple
    select(n -> n mod numtheory:-phi(n) = numtheory:-lambda(n), [seq(i,i=2..100000,2)]); # Robert Israel, Aug 04 2017
  • Mathematica
    Select[Range[10^5], Mod[#, EulerPhi@ #] == CarmichaelLambda@ # &] (* Michael De Vlieger, Jul 23 2017 *)
  • PARI
    isok(n) = (n % eulerphi(n)) == lcm(znstar(n)[2]); \\ Michel Marcus, Jul 23 2017

Extensions

More terms from Robert Israel, Jul 23 2017

A344561 Primes which divide a term of A345765. Ordered by their first appearance in the ordered prime factorizations of A345765.

Original entry on oeis.org

2, 3, 7, 43, 77659, 21108889701347407, 5474088843701260097485589623, 5474159333397668466502066699, 560801733392464138933367984275204243901675413919952459680492377203567758118343740900139639, 1872705977981591020313336244505607714217889071693212286852076373413830346691635632706249598340007
Offset: 1

Views

Author

Peter Luschny, Jul 04 2021

Keywords

Crossrefs

Cf. A345765, A124240, A344562 (cumulative product).

A344562 The cumulative product of A344561.

Original entry on oeis.org

2, 6, 42, 1806, 140252154, 2960567249162390534064678, 16206408149667170795492527169244544183769001647636394, 88716460433352581330235191998429699486728884944960207211236791363505969487843406
Offset: 1

Views

Author

Peter Luschny, Jul 05 2021

Keywords

Comments

The terms are squarefree.
It seems that this sequence is {2, 6, 42} union {squarefree kernels of A345765} in natural order.

Crossrefs

A363523 k is a term of this sequence if and only if Clausen(k, 0) divides Clausen(k, 2). (Clausen = A160014.)

Original entry on oeis.org

1, 3, 9, 15, 27, 45, 75, 81, 99, 105, 135, 225, 243, 255, 297, 315, 375, 405, 495, 525, 675, 729, 735, 765, 783, 891, 945, 1089, 1125, 1215, 1275, 1287, 1485, 1575, 1785, 1875, 2025, 2115, 2187, 2205, 2295, 2349, 2415, 2475, 2625, 2673, 2835, 3267, 3375, 3465
Offset: 1

Views

Author

Peter Luschny, Jun 08 2023

Keywords

Comments

k is a term of A124240 if and only if Clausen(k, 0) divides Clausen(k, 1).

Crossrefs

Programs

  • Maple
    # Using function 'Clausen' from A160014.
    aList := m -> select(k -> irem(Clausen(k, 2), Clausen(k, 0)) = 0, [seq(1..m)]):
    aList(3500);

A375322 Carmichael numbers k such that k-1 is a Novak-Carmichael number.

Original entry on oeis.org

1729, 6601, 10585, 15841, 41041, 46657, 658801, 1461241, 1615681, 1857241, 2433601, 3057601, 3581761, 4767841, 5031181, 5148001, 6840001, 7207201, 8355841, 10024561, 10402561, 14469841, 14676481, 17236801, 17316001, 19683001, 25603201, 35571601, 35703361, 38624041
Offset: 1

Views

Author

Thomas Ordowski, Aug 12 2024

Keywords

Comments

Composite numbers k such that lambda(k) divides k-1 and lambda(k-1) divides k-1, where lambda(m) = A002322(m).
These are composites k such that b^(k-1) == 1 (mod (k-1)*k) for every b coprime to (k-1)*k.
Composites k such that B^(b^(k-1)-1) == 1 (mod k^2) for every B coprime to k and for every b coprime to (k-1)*k.

Crossrefs

Cf. A002322, A002997, A124240 (Novak-Carmichael numbers), A337119.

Programs

  • Mathematica
    Select[Range[1, 10^6, 2], CompositeQ[#] && And @@ Divisible[# - 1, CarmichaelLambda[# + {-1, 0}]] &] (* Amiram Eldar, Aug 12 2024 *)
  • PARI
    f(n) = lcm(znstar(n)[2]); \\ A002322
    isok(k) = !isprime(k) && !((k-1) % f(k)) && !((k-1) % f(k-1)); \\ Michel Marcus, Aug 13 2024

Extensions

More terms from Amiram Eldar, Aug 12 2024

A320580 Numbers k such that for any positive integers x,y coprime to k, x^x == y (mod k) iff y^y == x (mod k).

Original entry on oeis.org

1, 2, 4, 6, 8, 12, 16, 18, 20, 24, 32, 36, 40, 42, 48, 60, 72, 80, 84, 96, 120, 126, 144, 156, 160, 168, 180, 240, 252, 288, 312, 336, 360, 420, 468, 480, 504, 624, 672, 720, 780, 840, 936, 1008, 1092, 1248, 1260, 1440, 1560, 1680, 1872, 2016, 2184, 2340, 2520, 3120, 3276, 3360, 3744, 4368, 4680, 5040, 5460, 6240, 6552, 8736, 9360, 10080, 10920, 13104, 16380, 18720, 21840, 26208, 32760, 43680, 65520, 131040
Offset: 1

Views

Author

Jianing Song, Oct 16 2018

Keywords

Comments

There are exactly 78 terms in this sequence.
k is a term in this sequence iff k is divisible by A002322(k) (k is in A124240) and k is a divisor of 131040.
From Jianing Song, Nov 17 2018: (Start)
Proof. Let psi = A002322. For every x coprime to k we must have x^x == (x+k)^(x+k) == x^(x+k) (mod k), that is, x^k == 1 (mod k), so psi(k) must be divisible by k, and the condition is equivalent to x^x^(x+1) == x (mod k) for every x coprime to k.
The case k = 1, 2 is obvious. Now let k > 2, then k must be even.
Let g be a primitive lambda-root modulo k and psi(k), 0 < g < k, then g must be odd. By the condition, we have g^g^(g+1) == g (mod k), so g^(g+1) == 1 (mod psi(k)), g + 1 == 0 (mod psi(psi(k)). Also, (k-g)^(k-g)^(k-g+1) == k - g (mod k). Let d be the multiplicative order of k - g modulo k, then (k-g)^d == 1 (mod k) and (k-g)^(k-g+1) == 1 (mod d).
Case (i). d is even, then we have g^d == 1 (mod k) => d = psi(k). So (k-g)^(k-g+1) == 1 (mod psi(k)). Since k - g + 1 is an even number, we have g^(k-g+1) == 1 (mod psi(k)) => k - g + 1 == 0 (mod psi(psi(k))). psi(k) | k implies that psi(psi(k)) | psi(k) (and also divides k), so -g + 1 == 0 (mod psi(psi(k)) => psi(psi(k)) | 2.
Case (ii). d is odd, then g^d == -1 (mod k) => d = psi(k)/2. So (k-g)^(k-g+1) == 1 (mod psi(k)/2). Since k - g is an odd number, we get (k-g)^(k-g+1) == 1 (mod psi(k)) again. The same as above, psi(psi(k)) | 2.
So psi(k) | 24, k divides 131040.
Note (i). Now we show that there does exist such g being a primitive lambda-root modulo k and psi(k). Let k = 2^(e_0)*Product_{i=1..m} (p_i)^(e_i)*s, psi(k) = 2^(f_0)*Product_{i=1..m} (p_i)^(f_i)*t, where p_i are distinct odd primes, gcd(t, k) = gcd(s, psi(k)) = 1, then let g == 3 (mod 8), g be a primitive root modulo (p_i)^2 and a primitive lambda-root modulo s and t.
Note (ii). We show that k divides 131040 and psi(k) divides k suffice. Suppose k > 1, then gcd(x, k) = 1 implies that x is odd.
(a) k is not divisible by 3, by psi(k) | k we have psi(k) is also not divisible by 3, so k divides 2^5*5 = 160. x^(x+1) == 1 (mod 8) => x^x^(x+1) == x (mod 160).
(b) k is divisible by 3, then gcd(x, 6) = 1 => x^(x+1) == 1 (mod 24) => x^x^(x+1) == x (mod 131040). (End) [Revised by Jianing Song, Feb 04 2019]

Examples

			3 is not a term because 2^2 == 1 (mod 3) but 1^1 !== 2 (mod 3).
10 is not a term because 13^13 == 3 (mod 10) but 3^3 !== 13 (mod 10).
20 is a term because 1^1 == 1 (mod 20), 3^3 == 7 (mod 20), 7^7 == 3 (mod 20), 9^9 == 9 (mod 20), 11^11 == 11 (mod 20), 13^13 == 13 (mod 20), 17^17 == 17 (mod 20), 19^19 == 19 (mod 20), and A002322(20) = 4 divides 20.
		

Crossrefs

Programs

  • PARI
    for(i=1, 144, my(j=divisors(131040)[i]); if(j%lcm(znstar(j)[2])==0, print1(j, ", ")))
Previous Showing 21-27 of 27 results.