A229303 -id:A229303 - cp's OEIS frontend

A031971 a(n) = Sum_{k=1..n} k^n.

1, 5, 36, 354, 4425, 67171, 1200304, 24684612, 574304985, 14914341925, 427675990236, 13421957361110, 457593884876401, 16841089312342855, 665478473553144000, 28101527071305611528, 1262899292504270591313, 60182438244917445266889, 3031284048960901518840700

Offset: 1

Chris du Feu (chris(AT)beckingham0.demon.co.uk)

From Alexander Adamchuk, Jul 21 2006: (Start)
p^(3k - 1) divides a(p^k) for prime p > 2 and k = 1, 2, 3, 4, ... or p^2 divides a(p) for prime p > 2. p^5 divides a(p^2) for prime p > 2. p^8 divides a(p^3) for prime p > 2. p^11 divides a(p^4) for prime p > 2.
p^2 divides a(2p) for prime p > 3. p^3 divides a(3p) for prime p > 2. p^2 divides a(4p) for prime p > 5. p^3 divides a(5p) for prime p > 3. p^2 divides a(6p) for prime p > 7.
p divides a(2p - 1) for all prime p. p^3 divides a(2p^2 - 1) for all prime p. p^5 divides a(2p^3 - 1) for all prime p.
p divides a((p - 1)/2) for p = 5, 13, 17, 29, 37, 41, 53, 61, ... = A002144 Pythagorean primes: primes of form 4n + 1.
(End)
If p prime then a(p-1) == -1 (mod p) [see De Koninck & Mercier reference]. Example: for p = 7, a(6) = 67171 = 7 * 9596 - 1. - Bernard Schott, Mar 06 2020

J.-M. De Koninck et A. Mercier, 1001 Problèmes en Théorie Classique des Nombres, Problème 327 pp. 48-200, Ellipses, Paris (2004).
Paulo Ribenboim, The Little Book of Bigger Primes, Springer-Verlag NY 2004. See p. 21.

T. D. Noe, Table of n, a(n) for n = 1..100
J. M. Grau, A. M. Oller-Marcen, and J. Sondow, On the congruence 1^m + 2^m + ... + m^m == n (mod m) with n|m, arXiv 1309.7941 [math.NT], 2013-2014.

A diagonal of array A103438.
Cf. A002144, A014117, A089072, A229303, A256016, A261490.
For a(n) mod n see A182398.

a031971 = sum . a089072_row  -- Reinhard Zumkeller, Mar 18 2013

[&+[(k)^n: k in [0..n]]: n in [1..30]]; // Vincenzo Librandi, Apr 18 2011

a := n->sum('i'^n,'i'=1..n);
# alternative
A031971 := proc(n)
    (bernoulli(n+1,n+1)-bernoulli(n+1))/(n+1) ;
end proc: # R. J. Mathar, May 10 2013

Table[Zeta[-n] - Zeta[-n, n + 1], {n, 25}] (* Alexander Adamchuk, Jul 21 2006 *)
Table[Total[Range[n]^n], {n,25}] (* T. D. Noe, Apr 19 2011 *)
Table[HarmonicNumber[n, -n], {n, 1, 25}] (* Jean-François Alcover, Apr 09 2015 *)

a(n)=sum(k=1,n,k^n) \\ Charles R Greathouse IV, Jun 05 2015

from sympy import harmonic
def A031971(n):
    return harmonic(n,-n) # Chai Wah Wu, Feb 15 2020

a(n) is asymptotic to (e/(e - 1))*n^n. - Benoit Cloitre, Dec 17 2003
a(n) = zeta(-n) - zeta(-n, n + 1), where zeta(s) is the Riemann zeta function and zeta(s, a) is the Hurwitz zeta function, a generalization of the Riemann zeta function. - Alexander Adamchuk, Jul 21 2006
a(n) == 1 (mod n) <==> n is in A014117 = 1, 2, 6, 42, 1806 (see the link "On the congruence ..."). - Jonathan Sondow, Oct 18 2013
a(A054377(n)) = A233045(n). - Jonathan Sondow, Dec 11 2013
a(n) = n! * [x^n] exp(x)*(exp(n*x) - 1)/(exp(x) - 1). - Ilya Gutkovskiy, Apr 07 2018
a(n) ~ ((e*n+1)/((e-1)*(n+1))) * n^n. - N. J. A. Sloane, Oct 13 2018, based on email from Claude F. Leibovici who claims this is slightly better than Cloitre's version when n is small.

A229307 Numbers k such that A031971(2k) <> k (mod 2k).

Original entry on oeis.org

3, 6, 9, 10, 12, 15, 18, 20, 21, 24, 27, 30, 33, 36, 39, 40, 42, 45, 48, 50, 51, 54, 55, 57, 60, 63, 66, 69, 70, 72, 75, 78, 80, 81, 84, 87, 90, 93, 96, 99, 100, 102, 105, 108, 110, 111, 114, 117, 120, 123, 126, 129, 130, 132, 135, 136, 138, 140, 141, 144

Offset: 1

José María Grau Ribas, Sep 24 2013

nonn

Complement of A229303.
The asymptotic density is in [0.41545, 0.416846].
If n is in A then k*n is in A for all natural number k.
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]

Amiram Eldar, Table of n, a(n) for n = 1..10000
José María Grau, Antonio M. Oller-Marcén and Jonathan Sondow, On the congruence 1^m + 2^m + ... + m^m = n (mod m), with n|m, Monatshefte für Mathematik, Vol. 177, No. 3 (2015), pp. 421-436, preprint, arXiv:1309.7941 [math.NT], 2013-2014.

Cf. A031971.
Cf. A014117 (numbers n such that A031971(n)==1 (mod 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. 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).

g[n_] := Mod[Sum[PowerMod[i, n, n], {i, n}], n]; Select[Range[500], !g[2*#] == # &]

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

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

José María Grau Ribas, Sep 19 2013

nonn

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.)

Jose María Grau, A. M. Oller-Marcen, and J. Sondow, On the congruence 1^n + 2^n +... + n^n = d (mod n), where d divides n

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).

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

A229301 Numbers n such that A031971(42n) == n (mod 42n).

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, 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, 82

Offset: 1

José María Grau Ribas, Sep 21 2013

nonn

Complement of A229305.
The asymptotic density is in [0.7880, 0.8079].
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.)

Robert Israel, Table of n, a(n) for n = 1..1000
Jose María Grau, A. M. Oller-Marcen, and J. Sondow, On the congruence 1^n + 2^n +... + n^n = d (mod n), where d divides n

Cf. A014117 (numbers n such that A031971(n)==1 (mod 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. 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).

filter:= proc(n) local t,k;
  t:= add(k &^ (42*n) mod (42*n),k=1..42*n);
  t mod (42*n) = n
end proc:
select(filter, [$1..100]); # Robert Israel, Dec 15 2020

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

A229302 Numbers n such that A031971(6n) == n (mod 6n).

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 8, 9, 11, 12, 13, 15, 16, 17, 18, 19, 22, 23, 24, 25, 27, 29, 31, 32, 33, 34, 36, 37, 38, 39, 41, 43, 44, 45, 46, 47, 48, 51, 53, 54, 58, 59, 61, 62, 64, 65, 66, 67, 68, 69, 71, 72, 73, 74, 75, 76, 79, 81, 82, 83, 85, 86, 87, 88, 89, 92, 93

Offset: 1

José María Grau Ribas, Sep 21 2013

nonn

Complement of A229306.
The asymptotic density is in [0.6986, 0.7073].
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]

Jose María Grau, A. M. Oller-Marcen, and J. Sondow, On the congruence 1^n + 2^n +... + n^n = d (mod n), where d divides n

Cf. A014117 (numbers n such that A031971(n)==1 (mod 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. 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).

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

A229311 Primitive numbers in A229307.

Original entry on oeis.org

3, 10, 55, 136, 253, 406, 1081, 1378, 1711, 2485, 3403, 3916, 5671, 6328, 8515, 9316, 11026, 13861, 14878, 15931, 18145, 19306, 25651, 27028, 28441, 31375, 32896, 34453, 36046, 42778, 48205, 50086, 60031, 62128, 64261, 73153, 75466, 87571, 92665, 97903

Offset: 1

José María Grau Ribas, Sep 24 2013

nonn

Robert G. Wilson v, Table of n, a(n) for n = 1..67
Jose María Grau, A. M. Oller-Marcen, and J. Sondow, On the congruence 1^n + 2^n +... + n^n = d (mod n), where d divides n

Cf. A014117 (numbers n such that A031971(n)==1 (mod 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. 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).

g[n_] := Mod[Sum[PowerMod[i, n, n], {i, 1, n}], n]; tachar[lis_, num_] := Select[lis, ! IntegerQ[#1/num] &]; primi[{}]={}; primi[lis_] := Join[{lis[[1]]}, primi[tachar[lis, lis[[1]]]]]; primi@Select[Range[500], !g[2*#] == # &]

A229304 Numbers n such that A031971(1806n) <> n (mod 1806n).

Original entry on oeis.org

10, 20, 26, 30, 40, 50, 52, 55, 57, 58, 60, 70, 78, 80, 90, 100, 104, 110, 114, 116, 120, 130, 136, 140, 150, 155, 156, 160, 165, 170, 171, 174, 180, 182, 190, 200, 208, 210, 220, 222, 228, 230, 232, 234, 240, 250, 253, 260, 270, 272, 275, 280, 285, 286, 290

Offset: 1

José María Grau Ribas, Sep 19 2013

nonn

Complement of A229300.
The asymptotic density is in [0.1921, 0.212].
If n is in A then k*n is in A for all natural number k.
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]

Jose María Grau, A. M. Oller-Marcen, and J. Sondow, On the congruence 1^n + 2^n +... + n^n = d (mod n), where d divides n

Cf. A014117 (numbers n such that A031971(n)==1 (mod 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. 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).

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

A229305 Numbers n such that A031971(42n) <> n (mod 42n).

Original entry on oeis.org

10, 20, 26, 30, 40, 43, 50, 52, 55, 57, 58, 60, 70, 78, 80, 86, 90, 100, 104, 110, 114, 116, 120, 129, 130, 136, 140, 150, 155, 156, 160, 165, 170, 171, 172, 174, 180, 182, 190, 200, 208, 210, 215, 220, 222, 228, 230, 232, 234, 240, 250, 253, 258, 260, 270

Offset: 1

José María Grau Ribas, Sep 23 2013

nonn

Complement of A229301.
The asymptotic density is in [0.2091, 0.2317].
If n is in A then k*n is in A for all natural number k.
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]

Jose María Grau, A. M. Oller-Marcen, and J. Sondow, On the congruence 1^n + 2^n +... + n^n = d (mod n), where d divides n

Cf. A014117 (numbers n such that A031971(n)==1 (mod 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. 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).

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

A229306 Numbers n such that A031971(6n) <> n (mod 6n).

Original entry on oeis.org

7, 10, 14, 20, 21, 26, 28, 30, 35, 40, 42, 49, 50, 52, 55, 56, 57, 60, 63, 70, 77, 78, 80, 84, 90, 91, 98, 100, 104, 105, 110, 112, 114, 119, 120, 126, 130, 133, 136, 140, 147, 150, 154, 155, 156, 160, 161, 165, 168, 170, 171, 175, 180, 182, 189, 190, 196

Offset: 1

José María Grau Ribas, Sep 24 2013

nonn

Complement of A229302.
The asymptotic density is in [0.2927, 0.3014].
If n is in A then k*n is in A for all natural number k.
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]

Jose María Grau, A. M. Oller-Marcen, and J. Sondow, On the congruence 1^n + 2^n +... + n^n = d (mod n), where d divides n

Cf. A014117 (numbers n such that A031971(n)==1 (mod 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. 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).

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

A229308 Primitive numbers in A229304.

Original entry on oeis.org

10, 26, 55, 57, 58, 136, 155, 222, 253, 346, 355, 381, 737, 876, 904, 1027, 1055, 1081, 1552, 1711, 1751, 1962, 2155, 2696, 2758, 3197, 3403, 3411, 3775, 3916, 4063, 4132, 4401, 5093, 5671, 6176, 6455, 6567, 7111, 7226, 8251, 8515, 8702, 9294, 9316, 9465

Offset: 1

José María Grau Ribas, Sep 20 2013

nonn

Jose María Grau, A. M. Oller-Marcen, and J. Sondow, On the congruence 1^n + 2^n +... + n^n = d (mod n), where d divides n

Cf. A014117 (numbers n such that A031971(n)==1 (mod 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. 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).

g[n_] := Mod[Sum[PowerMod[i, n, n], {i, 1, n}], n]; tachar[lis_, num_] := Select[lis, ! IntegerQ[#1/num] &];primi[{}] = {}; primi[lis_] := Join[{lis[[1]]}, primi[tachar[lis, lis[[1]]]]]; primi@Select[Range[70], ! g[1806*#] == # &]

cp's OEIS Frontend

A031971 a(n) = Sum_{k=1..n} k^n.

Views

Author

Keywords

Comments

References

Links

Crossrefs

Programs

Haskell

Magma

Maple

Mathematica

PARI

Python

Formula

A229307 Numbers k such that A031971(2*k) <> k (mod 2*k).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

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

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

A229301 Numbers n such that A031971(42*n) == n (mod 42*n).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Maple

Mathematica

A229302 Numbers n such that A031971(6*n) == n (mod 6*n).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

A229311 Primitive numbers in A229307.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

A229304 Numbers n such that A031971(1806*n) <> n (mod 1806*n).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

A229305 Numbers n such that A031971(42*n) <> n (mod 42*n).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

A229307 Numbers k such that A031971(2k) <> k (mod 2k).

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

A229301 Numbers n such that A031971(42n) == n (mod 42n).

A229302 Numbers n such that A031971(6n) == n (mod 6n).

A229304 Numbers n such that A031971(1806n) <> n (mod 1806n).

A229305 Numbers n such that A031971(42n) <> n (mod 42n).

A229306 Numbers n such that A031971(6n) <> n (mod 6n).