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-4 of 4 results.

A229300 Numbers n such that A031971(1806*n) == n (mod 1806*n).

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 12, 13, 14, 15, 16, 17, 18, 19, 21, 22, 23, 24, 25, 27, 28, 29, 31, 32, 33, 34, 35, 36, 37, 38, 39, 41, 42, 43, 44, 45, 46, 47, 48, 49, 51, 53, 54, 56, 59, 61, 62, 63, 64, 65, 66, 67, 68, 69, 71, 72, 73, 74, 75, 76, 77, 79, 81
Offset: 1

Views

Author

José María Grau Ribas, Sep 19 2013

Keywords

Comments

Complement of A229304.
The asymptotic density is in [0.7747,0.812570].
The numbers k = 1, 2, 6, 42, 1806, 47058, 2214502422, 8490421583559688410706771261086 = A230311 are the only values of k such that the set {n: A031971(k*n) == n (mod k*n)} is nonempty. Its smallest element is n = 1, 1, 1, 1, 1, 5, 5, 39607528021345872635 = A231409. (Comment corrected and expanded by Jonathan Sondow, Dec 10 2013.)

Links

Crossrefs

Cf. A031971, A231409.
Cf. A231562 (numbers n such that A031971(8490421583559688410706771261086*n) == n (mod 8490421583559688410706771261086*n)).
Cf. A229312 (numbers n such that A031971(47058*n) == n (mod 47058*n)).
Cf. A229300 (numbers n such that A031971(1806*n)== n (mod n*1806)).
Cf. A229301 (numbers n such that A031971(42*n) == n (mod 42*n)).
Cf. A229302 (numbers n such that A031971(6*n) == n (mod 6*n)).
Cf. A229303 (numbers n such that A031971(2*n) == n (mod 2*n)).
Cf. A229313 (numbers n such that A031971(47058*n) <> n (mod 47058*n)).
Cf. A229304 (numbers n such that A031971(1806*n) <> n (mod n*1806)).
Cf. A229305 (numbers n such that A031971(42*n) <> n (mod 42*n)).
Cf. A229306 (numbers n such that A031971(6*n) <> n (mod 6*n)).
Cf. A229307 (numbers n such that A031971(2*n) <> n (mod 2*n)).
Cf. A229308 (primitive numbers in A229304).
Cf. A229309 (primitive numbers in A229305).
Cf. A229310 (primitive numbers in A229306).
Cf. A229311 (primitive numbers in A229307).
Cf. A054377 (primary pseudoperfect numbers).

Programs

  • Mathematica
    g[n_] := Mod[Sum[PowerMod[i, n, n], {i, n}], n]; Select[Range[100], g[1806*#] == # &]

A230311 Numbers n such that 1^(k*n) + 2^(k*n) + ... + (k*n)^(k*n) == k (mod k*n) for some k; that is, numbers n such that A031971(k*n) == k (mod k*n) for some k.

Original entry on oeis.org

1, 2, 6, 42, 1806, 47058, 2214502422, 8490421583559688410706771261086
Offset: 1

Views

Author

José María Grau Ribas, Nov 06 2013

Keywords

Comments

Least such k is A231409. No other terms for n < 10^110 (see Grau, Oller-Marcen, Sondow (2015) p. 428). - Jonathan Sondow, Nov 30 2013
Same as quotients Q = m/n of solutions to the congruence 1^m + 2^m + . . . + m^m == n (mod m) with n|m. For Q > 1, a necessary condition is that Q be a primary pseudoperfect number A054377. The condition is not sufficient since the primary pseudoperfect number 52495396602 is not a member. - Jonathan Sondow, Jul 13 2014

Links

Crossrefs

Cf. A031971, A231409.
Cf. A231562 (numbers n such that A031971(8490421583559688410706771261086*n) == n (mod 8490421583559688410706771261086*n)).
Cf. A229312 (numbers n such that A031971(47058*n) == n (mod 47058*n)).
Cf. A229300 (numbers n such that A031971(1806*n)== n (mod n*1806)).
Cf. A229301 (numbers n such that A031971(42*n) == n (mod 42*n)).
Cf. A229302 (numbers n such that A031971(6*n) == n (mod 6*n)).
Cf. A229303 (numbers n such that A031971(2*n) == n (mod 2*n)).
Cf. A229313 (numbers n such that A031971(47058*n) <> n (mod 47058*n)).
Cf. A229304 (numbers n such that A031971(1806*n) <> n (mod n*1806)).
Cf. A229305 (numbers n such that A031971(42*n) <> n (mod 42*n)).
Cf. A229306 (numbers n such that A031971(6*n) <> n (mod 6*n)).
Cf. A229307 (numbers n such that A031971(2*n) <> n (mod 2*n)).
Cf. A229308 (primitive numbers in A229304).
Cf. A229309 (primitive numbers in A229305).
Cf. A229310 (primitive numbers in A229306).
Cf. A229311 (primitive numbers in A229307).
Cf. A054377 (primary pseudoperfect numbers).

Formula

a(n) = A054377(n-1) for n = 2, 3, 4, 5, 6, 7, but a(8) = A054377(8). - Jonathan Sondow, Jul 13 2014

Extensions

Definition corrected by Jonathan Sondow, Nov 30 2013

A229312 Numbers n such that A031971(47058*n) == n (mod 47058*n).

Original entry on oeis.org

5, 15, 25, 45, 55, 65, 75, 85, 95, 115, 125, 135, 145, 155, 165, 185, 195, 205, 215, 225, 255, 265, 275, 295, 305, 325, 345, 355, 365, 375, 395, 405, 415, 425, 435, 445, 465, 475, 485, 495, 505, 515, 535, 545, 555, 565, 575, 585, 605, 615, 625, 635, 645, 655
Offset: 1

Views

Author

José María Grau Ribas, Oct 20 2013

Keywords

Comments

The number 47058 occurring in the name is the sixth term of A230311.
The asymptotic density lies in the interval [0.0560465, 0.0800567].
Complement of A230313 .
For n<235295, A031971(47058*n) == n (mod 47058*n) if and only if A031971(2214502422*n) <> n (mod 2214502422*n).
The numbers in A230311 are the values of k such that the set {n : A031971(k*n)== n (mod k*n)} is nonempty.

Links

Crossrefs

Cf. A031971, A230311.
Cf. A231562 (numbers n such that A031971(8490421583559688410706771261086*n) == n (mod 8490421583559688410706771261086*n)).
Cf. A229312 (numbers n such that A031971(47058*n) == n (mod 47058*n)).
Cf. A229300 (numbers n such that A031971(1806*n)== n (mod n*1806)).
Cf. A229301 (numbers n such that A031971(42*n) == n (mod 42*n)).
Cf. A229302 (numbers n such that A031971(6*n) == n (mod 6*n)).
Cf. A229303 (numbers n such that A031971(2*n) == n (mod 2*n)).
Cf. A229313 (numbers n such that A031971(47058*n) <> n (mod 47058*n)).
Cf. A229304 (numbers n such that A031971(1806*n) <> n (mod n*1806)).
Cf. A229305 (numbers n such that A031971(42*n) <> n (mod 42*n)).
Cf. A229306 (numbers n such that A031971(6*n) <> n (mod 6*n)).
Cf. A229307 (numbers n such that A031971(2*n) <> n (mod 2*n)).
Cf. A229308 (primitive numbers in A229304).
Cf. A229309 (primitive numbers in A229305).
Cf. A229310 (primitive numbers in A229306).
Cf. A229311 (primitive numbers in A229307).

Programs

  • Mathematica
    fa = FactorInteger; Car[k_, n_] := Mod[n - Sum[If[IntegerQ[k/(fa[n][[i,
   1]] - 1)], n/fa[n][[i, 1]], 0], {i, 1, Length[fa[n]]}], n]; supercar[k_, n_] := If[k == 1 || Mod[k, 2] == 0 || Mod[n, 4] > 0, Car[k,n], Mod[Car[k, n] - n/2, n]]; Select[Range[1000], supercar[47058*#, 47058*#] == # &]

A230313 Numbers n such that A031971(47058*n) <> n (mod 47058*n).

Original entry on oeis.org

1, 2, 3, 4, 6, 7, 8, 9, 10, 11, 12, 13, 14, 16, 17, 18, 19, 20, 21, 22, 23, 24, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 46, 47, 48, 49, 50, 51, 52, 53, 54, 56, 57, 58, 59, 60, 61, 62, 63, 64, 66, 67, 68, 69, 70, 71, 72, 73
Offset: 1

Views

Author

José María Grau Ribas, Nov 16 2013

Keywords

Comments

The asymptotic density lies in the interval [0.919943, 0.943954].
Complement of A229312.
The numbers in A230311 are the values of k such that the set {n : A031971(k*n)== n (mod k*n)} is nonempty.

Links

Crossrefs

Cf. A031971, A230311.
Cf. A231562 (numbers n such that A031971(8490421583559688410706771261086*n) == n (mod 8490421583559688410706771261086*n)).
Cf. A229312 (numbers n such that A031971(47058*n) == n (mod 47058*n)).
Cf. A229300 (numbers n such that A031971(1806*n)== n (mod n*1806)).
Cf. A229301 (numbers n such that A031971(42*n) == n (mod 42*n)).
Cf. A229302 (numbers n such that A031971(6*n) == n (mod 6*n)).
Cf. A229303 (numbers n such that A031971(2*n) == n (mod 2*n)).
Cf. A229313 (numbers n such that A031971(47058*n) <> n (mod 47058*n)).
Cf. A229304 (numbers n such that A031971(1806*n) <> n (mod n*1806)).
Cf. A229305 (numbers n such that A031971(42*n) <> n (mod 42*n)).
Cf. A229306 (numbers n such that A031971(6*n) <> n (mod 6*n)).
Cf. A229307 (numbers n such that A031971(2*n) <> n (mod 2*n)).
Cf. A229308 (primitive numbers in A229304).
Cf. A229309 (primitive numbers in A229305).
Cf. A229310 (primitive numbers in A229306).
Cf. A229311 (primitive numbers in A229307).

Programs

  • Mathematica
    fa = FactorInteger; Car[k_, n_] := Mod[n - Sum[If[IntegerQ[k/(fa[n][[i,
   1]] - 1)], n/fa[n][[i, 1]], 0], {i, 1, Length[fa[n]]}], n]; supercar[k_, n_] := If[k == 1 || Mod[k, 2] == 0 || Mod[n, 4] > 0, Car[k,n], Mod[Car[k, n] - n/2, n]]; Select[Range[1000], !supercar[47058*#, 47058*#] == # &]
Showing 1-4 of 4 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.