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.

A341689 a(n) is the sum of the 4th power of the first A125907(n) primes.

Original entry on oeis.org

16, 282090779141153551270, 2210712955689035458600206881540015387708550, 48675866046797839528447895106845001955284425583991669795082795118772, 340116502128393540096171523813533871084766138971398067752157768889198596930173282496
Offset: 1

Views

Author

Karl-Heinz Hofmann, Feb 17 2021

Keywords

Crossrefs

Programs

  • Python
    sum = 0
    for n in range(1,10000000000001):
        sum += pow(prime[n],4)
        if sum % n == 0:
            print(n, prime[n], sum, (sum // n))

Extensions

a(4) from Martin Ehrenstein, Feb 27 2021
a(5) from Paul W. Dyson, May 09 2024

A341690 Integer averages of first n primes to the 4th power for some n (A341689(n)/A125907(n)).

Original entry on oeis.org

16, 95591589000729770, 57770815231373815452404527382911050, 15942241394469365582203327807497328235663420076612273764, 89536555153849358635668155008982165719026544119306300984594045157568
Offset: 1

Views

Author

Karl-Heinz Hofmann, Feb 17 2021

Keywords

Crossrefs

Programs

  • Python
    sum = 0
    for n in range(1, 10000000000001):
        sum += pow(prime[n], 4)
        if sum % n == 0:
            print(n, prime[n], sum, (sum // n))

Extensions

a(4) from Martin Ehrenstein, Feb 27 2021
a(5) from Paul W. Dyson, May 09 2024

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

A232869 Primes p such that the average of the fourth powers of primes up to p is an integer.

Original entry on oeis.org

2, 26893, 741080929, 95114243761787, 146234140655742407
Offset: 1

Views

Author

M. F. Hasler, Dec 01 2013

Keywords

Comments

Otherwise said, prime(n) such that n divides prime(1)^4 + ... + prime(n)^4. The n-values (indices) are given in A125907.

Crossrefs

Cf. A171399, A111441, A217599 (analog for squares), A223936 (3rd powers), A224083 (5th powers), A232733 (6th powers), A232865 (7th powers), A232822 (8th powers), A232962 (9th powers), A233132 (10th powers).

Programs

  • PARI
    S=n=0;forprime(p=1,,(S+=p^4)%n++||print1(p","))

Formula

a(n) = prime(A125907(n)).

Extensions

a(4) from Bruce Garner, Feb 27 2021
a(5) from Paul W. Dyson, May 09 2024
Showing 1-4 of 4 results.