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

A085450 a(n) is the smallest m > 1 such that m divides Sum_{k=1..m} prime(k)^n.

Original entry on oeis.org

23, 19, 25, 2951, 25, 4357, 25, 43, 281525, 269, 25, 37, 23, 295, 17, 3131, 395191, 37, 25, 19, 139, 1981, 23, 37, 25, 455, 25, 41, 124403, 61, 17, 511, 193, 535, 23, 5209, 1951, 19, 25, 301, 891, 9805, 25, 527, 23, 83, 17, 37, 131, 43, 25, 193, 53, 37, 25, 19
Offset: 1

Views

Author

Farideh Firoozbakht, Aug 14 2003

Keywords

Comments

By definition a(1) is A045345(2).
This sequence has a very interesting behavior. If Mod(n, 2)(Mod(n, 20)-1)(Mod(n, 20)-9)(Mod(n, 20)-13)(Mod(n, 20)-17)!=0, a(n)=17, 23 or 25; in other cases a(n) may be too large. If Mod[n, 16] = 15, a(n) = 17. For example, a(n) = 17 for n = 15, 31, 47, 63, 79, 95, 111, 127, 143, 159, 175, 191, ...; also, a(n) = 23 for n = 1, 13, 23, 35, 45, 57, 67, 89, 101, 123, 133, 145, 155, 167, 177, 189, 199, ...; a(n) = 25 for n = 3, 5, 7, 11, 19, 25, 27, 39, 43, 51, 55, 59, 65, 71, 75, ..., . For a(n) = 19 for n = 2, 20, 38, 56, 74, 92, 110, 128, 146, 164, 182, 200, 218, ..., == 2 (mod 18).
From Alexander Adamchuk, Jul 20 2008: (Start)
Conjectures:
a(n) exists for all n; a(n) >= 17.
a(325)-a(575) = {25,19,25,5851,1843,61,23,821,89,301,17,37,131,455,25,1607,297,37,23,19,25,
325,25,37,353,47,17,1663,23,691,25,691,509269,155,25,269,105893,19,25,3971,
23,213215,17,26021,327,79,25,37,151,83,23,161,101,37,25,19,327,265,17,37,25,
43,23,41,169,61,25,113,21761,6289,25,47,23,19,17,4073,1137,565,25,527,25,
325,25,37,23,455,25,431,13195,37,17,19,53,155,23,37,89,455,25,18839,25,6221,
25,41,18597,229,17,811,623173,19,25,193,2079,673,25,881,23,47,25,37,25,97,
17,79,131,37,25,19,23,56501,25,37,299,455,25,167,2707,446963,17,157,25,325,
25,41,53,19,25,5917,103,1051,23,607,101,155,17,37,6233,455,25,9049,23,37,25,
19,327,5359,25,37,43,455,17,9187,23,193,25,1861,7923,301,25,113,25,19,23,41,
89,61,17,43,1785,131,25,37,1417,455,23,151,53,37,25,19,25,79,17,37,23,455,
25,289,59,47,25,511,47,83,25,739,23,19,17,301,25,269,25,41,707,2735,23,37,
299,43,25,283,69723,37,17,19,1785,479,23,37,25,455,25,1867,131,61,25,31799,
23,161,17}.
a(n) is currently unknown and a(n)>10^7 for n = {324, 576, ...}. (End)
All but one of the terms up to n=1000 are known and they are less than 10^8. Currently the only unknown term for n<=1000 is a(656)>10^8. - Alexander Adamchuk, May 24 2009
More terms: a(324) = 18642551, a(576) = 12824827. - Alexander Adamchuk, May 24 2009
a(656) > 23,491,000,000. - Robert Price, Apr 22 2014
a(656) > 10^12. - Paul W. Dyson, Nov 23 2024
From Paul W. Dyson, Jan 18 2025: (Start)
If n == 15 (mod 16), a(n) = 17; otherwise if n == 2 (mod 18), a(n) = 19; otherwise if n mod 22 = 1 or 13, a(n) = 23; otherwise if n mod 20 = 3, 5, 7, 11, 15 or 19, a(n) = 25; otherwise if n mod 36 = 12, 18 or 24, a(n) = 37; etc. These follow from the fact that a(n) will also be a divisor for a prime sum with power j when j == n (mod psi(a(n))) and both n and j are greater than or equal to the maximum exponent in the prime factorization of a(n), where psi is the reduced totient function (A002322). E.g. for n=15, a(n)=17 and psi(a(n)) = 16. So j = 31, 47, 63, ..., and a(31) = a(47) = a(63) = a(15) = 17. For proof, see the comment dated Dec 09 2022 in A111441.
If a(n) exists, a(n) >= 17. For k < 17, psi(k) <= 12 and the maximum exponent in a prime factorization is 4 (as 16=2^4). So any a(n) < 17 would appear with periodicity <= 12, and would be seen in the first 15 (=12+4-1) terms of the sequence. (End)

Examples

			a(3) = 25 because 2^3+3^3+5^3...+prime(25)^3 == 0 (mod 25) and for 1 < n < 25 2^3+3^3+...+prime(n)^3 is not congruent to zero (mod n).
		

Crossrefs

Programs

  • Mathematica
    a[n_] := Block[{m = 2, s = 2^n}, While[s = s + Prime[m]^n; Mod[s, m] != 0, m++ ]; m]; Table[ a[n], {n, 1, 56}]
    a[n_] := Block[{m = 2, s = 2^n}, While[s = s + Prime[m]^n; Mod[s, m] != 0&& m<10000000, m++ ]; m]; Table[ a[n], {n, 1, 1000}] (* Alexander Adamchuk, Jul 20 2008 *)
  • PARI
    a(n)=my(s=2^n,m=1); forprime(p=3,, if((s+=p^n)%m++==0, return(m))) \\ Charles R Greathouse IV, Feb 06 2015

Formula

For[m=2, Mod[Sum[Prime[k]^n, {k, m}], m]!=0, m++ ]; m

Extensions

Edited and extended by Robert G. Wilson v, Aug 14 2003

A232733 Prime(m), where m is such that (Sum_{i=1..m} prime(i)^6) / m is an integer.

Original entry on oeis.org

2, 41647, 3197891, 630397289, 779089704751, 3819383648849, 44041722668737, 1322879640047263, 9863536132182127, 16069251644649407, 32520030920151967
Offset: 1

Views

Author

Robert Price, Dec 02 2013

Keywords

Comments

The primes correspond to indices n = 1, 4357, 230065, 32826947, 29578097627 = A125825.
a(12) > 3.7*10^16. - Paul W. Dyson, Jan 17 2025

Examples

			a(2) = 41647, because 41647 is the 4357th prime and the sum of the first 4357 primes^6 = 2952411812082729747782733271068 when divided by 4357 equals 677624928180566845945084524 which is an integer.
		

Crossrefs

Cf. A085450 (smallest m > 1 such that m divides Sum_{k=1..m} prime(k)^n).

Programs

  • Mathematica
    t = {}; sm = 0; Do[sm = sm + Prime[n]^6; If[Mod[sm, n] == 0, AppendTo[t, Prime[n]]], {n, 100000}]; t (* Derived from A217599 *)
  • PARI
    is(n)=if(!isprime(n),return(0)); my(t=primepi(n),s); forprime(p=2,n,s+=Mod(p,t)^6); s==0 \\ Charles R Greathouse IV, Nov 30 2013
    
  • PARI
    S=n=0;forprime(p=1,,(S+=p^6)%n++||print1(p",")) \\ M. F. Hasler, Dec 01 2013

Formula

a(n) = prime(A125828(n)).

Extensions

a(6) from Bruce Garner, Jul 10 2021
a(7) from Paul W. Dyson, Jan 08 2021
a(8) from Bruce Garner, Jul 10 2021
a(9) from Paul W. Dyson, Oct 21 2022
a(10) from Paul W. Dyson, Oct 31 2022
a(11) from Paul W. Dyson, Dec 08 2022
Showing 1-2 of 2 results.