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

A233263 a(n) = prime(k), where k is such that (Sum_{j=1..k} prime(j)^12) / k is an integer.

Original entry on oeis.org

2, 157, 72673, 52472909, 85790059, 88573873, 16903607381, 4582951241047, 162717490461611, 1220077659512857, 34871545949176799
Offset: 1

Views

Author

Robert Price, Dec 06 2013

Keywords

Comments

a(11) > 1352363608564489. - Bruce Garner, Aug 30 2021
a(12) > 37124508045065437. - Paul W. Dyson, Jan 04 2024

Examples

			a(2) = 157, because 157 is the 37th prime and the sum of the first 37 primes^12 = 636533120636984811361212036 when divided by 37 equals 17203597855053643550303028 which is an integer.
		

Crossrefs

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

Programs

  • Maple
    A233263:=n->if type(add(ithprime(i)^12, i=1..n)/n, integer) then ithprime(n); fi; seq(A233263(n), n=1..100000); # Wesley Ivan Hurt, Dec 06 2013
  • Mathematica
    t = {}; sm = 0; Do[sm = sm + Prime[n]^12; 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)^12); s==0 \\ Charles R Greathouse IV, Nov 30 2013
    
  • PARI
    S=n=0;forprime(p=1,,(S+=p^12)%n++||print1(p",")) \\ M. F. Hasler, Dec 01 2013

Formula

a(n) = prime(A131272(n)).

Extensions

a(8)-a(9) from Bruce Garner, Mar 23 2021
a(10) from Bruce Garner, Aug 30 2021
a(11) from Paul W. Dyson, Jan 04 2024
Showing 1-2 of 2 results.