A071148 -id:A071148 - cp's OEIS frontend

A373822 Sum of the n-th maximal run of first differences of odd primes.

4, 4, 2, 4, 2, 4, 6, 2, 6, 4, 2, 4, 12, 2, 6, 4, 2, 6, 4, 6, 8, 4, 2, 4, 2, 4, 14, 4, 6, 2, 10, 2, 12, 4, 12, 2, 10, 2, 4, 2, 24, 4, 2, 4, 6, 2, 10, 18, 2, 6, 4, 2, 10, 14, 4, 2, 4, 14, 6, 10, 2, 4, 6, 8, 12, 4, 6, 8, 4, 8, 10, 2, 10, 2, 6, 4, 6, 8, 4, 2, 4

Offset: 1

Gus Wiseman, Jun 22 2024

nonn

Run-sums of A001223. For run-lengths instead of run-sums we have A333254.

			The odd primes are
3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, ...
with first differences
2, 2, 4, 2, 4, 2, 4, 6, 2, 6, 4, 2, 4, 6, 6, 2, 6, 4, 2, 6, 4, 6, 8, ...
with runs
(2,2), (4), (2), (4), (2), (4), (6), (2), (6), (4), (2), (4), (6,6), ...
with sums a(n).

Run-sums of A001223.
For run-lengths we have A333254, run-lengths of run-lengths A373821.
Dividing by two gives A373823.
A000040 lists the primes.
A027833 gives antirun lengths of odd primes (partial sums A029707).
A046933 counts composite numbers between primes.
A065855 counts composite numbers up to n.
A071148 gives partial sums of odd primes.
A373820 gives run-lengths of antirun-lengths of odd primes.
For prime runs: A001359, A006512, A025584, A067774, A373405, A373406.
Cf. A037201, A038664, A054265, A176246, A251092, A373404, A373825.

Total/@Split[Differences[Select[Range[3,1000],PrimeQ]]]

A373825 Position of first appearance of n in the run-lengths (differing by 0) of the run-lengths (differing by 2) of the odd primes.

Original entry on oeis.org

1, 2, 13, 11, 105, 57, 33, 69, 59, 29, 227, 129, 211, 341, 75, 321, 51, 45, 407, 313, 459, 301, 767, 1829, 413, 537, 447, 1113, 1301, 1411, 1405, 2865, 1709, 1429, 3471, 709, 2543, 5231, 1923, 679, 3301, 2791, 6555, 5181, 6345, 11475, 2491, 10633

Offset: 1

Gus Wiseman, Jun 21 2024

nonn

Positions of first appearances in A373819.

			The runs of odd primes differing by 2 begin:
   3   5   7
  11  13
  17  19
  23
  29  31
  37
  41  43
  47
  53
  59  61
  67
  71  73
  79
with lengths:
3, 2, 2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 1, 1, 1, 2, 2, 1, 1, 1, 2, 2, 1, 1, 1, 1, 2, 2, 2, ...
which have runs beginning:
  3
  2 2
  1
  2
  1
  2
  1 1
  2
  1
  2
  1 1 1 1
  2 2
  1 1 1
with lengths:
1, 2, 1, 1, 1, 1, 2, 1, 1, 1, 4, 2, 3, 2, 4, 3, ...
with positions of first appearances a(n).

Firsts of A373819 (run-lengths of A251092).
For antiruns we have A373827 (sorted A373826), firsts of A373820, run-lengths of A027833 (partial sums A029707, firsts A373401, sorted A373402).
The sorted version is A373824.
A000040 lists the primes.
A001223 gives differences of consecutive primes (firsts A073051), run-lengths A333254 (firsts A335406), run-lengths of run-lengths A373821.
A046933 counts composite numbers between primes.
A065855 counts composite numbers up to n.
A071148 gives partial sums of odd primes.
For prime runs: A001359, A006512, A025584, A067774, A373405, A373406.
For composite runs: A005381, A054265, A068780, A176246, A373403, A373404.
Cf. A006560, A006562, A037201, A038664, A069010, A122535.

t=Length/@Split[Length/@Split[Select[Range[3,10000], PrimeQ],#1+2==#2&]//Most]//Most;
spna[y_]:=Max@@Select[Range[Length[y]],SubsetQ[t,Range[#1]]&];
Table[Position[t,k][[1,1]],{k,spna[t]}]

A049579 Numbers k such that prime(k)+2 divides (prime(k)-1)!.

Original entry on oeis.org

4, 6, 8, 9, 11, 12, 14, 15, 16, 18, 19, 21, 22, 23, 24, 25, 27, 29, 30, 31, 32, 34, 36, 37, 38, 39, 40, 42, 44, 46, 47, 48, 50, 51, 53, 54, 55, 56, 58, 59, 61, 62, 63, 65, 66, 67, 68, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 82, 84, 85, 86, 87, 88, 90, 91, 92, 93, 94, 95

Offset: 1

Labos Elemer

nonn

Numbers k such that prime(k+1) - prime(k) does not divide prime(k+1) + prime(k). These are the numbers k for which prime(k+1) - prime(k) > 2. - Thomas Ordowski, Mar 31 2022

If we prepend 1, the first differences are A251092 (see also A175632). The complement is A029707. - Gus Wiseman, Dec 03 2024

			prime(4) = 7, 6!+1 = 721 gives residue 1 when divided by prime(4)+2 = 9.

Amiram Eldar, Table of n, a(n) for n = 1..10000

The first differences are A251092 except first term, run-lengths A373819.
The complement is A029707.
Runs of terms differing by one have lengths A027833, min A107770, max A155752.
A000040 lists the primes, differences A001223 (run-lengths A333254, A373821).
A038664 finds the first prime gap of difference 2n.
A046933 counts composite numbers between primes.
A071148 gives partial sums of odd primes.
For prime runs: A001359, A005381, A006512, A025584, A067774, A373403.
Cf. A006560, A006562, A037201, A122535, A175632, A176246, A373820.

pnmQ[n_]:=Module[{p=Prime[n]},Mod[(p-1)!+1,p+2]==1]; Select[Range[ 100],pnmQ] (* Harvey P. Dale, Jun 24 2017 *)

isok(n) = (((prime(n)-1)! + 1) % (prime(n)+2)) == 1; \\ Michel Marcus, Dec 31 2013

Definition edited by Thomas Ordowski, Mar 31 2022

A373819 Run-lengths (differing by 0) of the run-lengths (differing by 2) of the odd primes.

Original entry on oeis.org

1, 2, 1, 1, 1, 1, 2, 1, 1, 1, 4, 2, 3, 2, 4, 3, 2, 1, 1, 1, 3, 1, 1, 1, 2, 1, 3, 1, 10, 2, 4, 1, 7, 1, 4, 1, 3, 1, 2, 1, 1, 1, 2, 1, 18, 3, 2, 1, 2, 1, 17, 2, 1, 2, 2, 1, 6, 1, 9, 1, 3, 1, 1, 1, 1, 1, 1, 1, 8, 1, 3, 1, 2, 2, 15, 1, 1, 1, 4, 1, 1, 1, 1, 1, 7, 1

Offset: 1

Gus Wiseman, Jun 20 2024

nonn

Run-lengths of A251092.

			The odd primes begin:
3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, ...
with runs:
   3   5   7
  11  13
  17  19
  23
  29  31
  37
  41  43
  47
  53
  59  61
  67
  71  73
with lengths:
3, 2, 2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 1, 1, 1, 2, 2, 1, 1, 1, 2, 2, 1, ...
which have runs beginning:
  3
  2 2
  1
  2
  1
  2
  1 1
  2
  1
  2
  1 1 1 1
  2 2
  1 1 1
with lengths a(n).

Gus Wiseman, Four statistics for runs and antiruns of prime, nonprime, squarefree, and nonsquarefree numbers.

Run-lengths of A251092.
For antiruns we have A373820, run-lengths of A027833 (if we prepend 1).
Positions of first appearances are A373825, sorted A373824.
A000040 lists the primes.
A001223 gives differences of consecutive primes, run-lengths A333254, run-lengths of run-lengths A373821.
A046933 counts composite numbers between primes.
A065855 counts composite numbers up to n.
A071148 gives partial sums of odd primes.
For prime runs: A001359, A006512, A025584, A067774, A373405, A373406.
For composite runs: A005381, A054265, A068780, A373403, A373404.
Cf. A005117, A006560, A006562, A029707, A037201, A038664, A076259, A176246.

Length/@Split[Length/@Split[Select[Range[3,1000], PrimeQ],#1+2==#2&]//Most]//Most

A373824 Sorted positions of first appearances in the run-lengths (differing by 0) of the run-lengths (differing by 2) of the odd primes.

Original entry on oeis.org

1, 2, 11, 13, 29, 33, 45, 51, 57, 59, 69, 75, 105, 129, 211, 227, 301, 313, 321, 341, 407, 413, 447, 459, 537, 679, 709, 767, 1113, 1301, 1405, 1411, 1429, 1439, 1709, 1829, 1923, 2491, 2543, 2791, 2865, 3301, 3471, 3641, 4199, 4611, 5181, 5231, 6345, 6555

Offset: 1

Gus Wiseman, Jun 21 2024

nonn

Sorted positions of first appearances in A373819.

			The runs of odd primes differing by 2 begin:
   3   5   7
  11  13
  17  19
  23
  29  31
  37
  41  43
  47
  53
  59  61
  67
  71  73
  79
with lengths:
3, 2, 2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 1, 1, 1, 2, 2, 1, 1, 1, 2, 2, 1, 1, 1, 1, 2, 2, 2, ...
which have runs beginning:
  3
  2 2
  1
  2
  1
  2
  1 1
  2
  1
  2
  1 1 1 1
  2 2
  1 1 1
with lengths:
1, 2, 1, 1, 1, 1, 2, 1, 1, 1, 4, 2, 3, 2, 4, 3,...
with sorted positions of first appearances a(n).

Sorted firsts of A373819 (run-lengths of A251092).
The unsorted version is A373825.
For antiruns we have A373826, unsorted A373827.
A000040 lists the primes.
A001223 gives differences of consecutive primes (firsts A073051), run-lengths A333254 (firsts A335406), run-lengths of run-lengths A373821.
A046933 counts composite numbers between primes.
A065855 counts composite numbers up to n.
A071148 gives partial sums of odd primes.
A373820 gives run-lengths of antirun-lengths, run-lengths of A027833.
For prime runs: A001359, A006512, A025584, A067774, A373405, A373406.
For composite runs: A005381, A054265, A068780, A373403, A373404.
Cf. A006560, A006562, A029707, A037201, A038664, A069010, A122535, A176246, A373401, A373402.

t=Length/@Split[Length/@Split[Select[Range[3,10000],PrimeQ],#1+2==#2&]];
Select[Range[Length[t]],FreeQ[Take[t,#-1],t[[#]]]&]

A185382 Sum_{j=1..n-1} P(n)-P(j), where P(j) = A065091(j) is the j-th odd prime.

Original entry on oeis.org

0, 2, 6, 18, 26, 46, 58, 86, 134, 152, 212, 256, 280, 332, 416, 506, 538, 640, 712, 750, 870, 954, 1086, 1270, 1366, 1416, 1520, 1574, 1686, 2092, 2212, 2398, 2462, 2792, 2860, 3070, 3286, 3434, 3662, 3896, 3976, 4386, 4470, 4642, 4730, 5270

Offset: 1

Clark Kimberling, Feb 13 2012

nonn

It appears 1/3 of a(n) values are divisible by 3 (as measured up to n = 8000). Almost all of these cases occur consecutively (i.e., in "runs"). The sizes of these runs, including runs of 1, in the first 250 primes are given by this sequence: {2, 4, 1, 1, 2, 4, 2, 2, 3, 2, 2, 3, 3, 2, 2, 2, 2, 2, 2, 5, 6, 3, 2, 2, 3, 3, 9, 1, ..} with two runs up to 12 in length occurring in the first 5000 primes. - Richard R. Forberg, Mar 26 2015

a(n+1) == a(n) (mod 3) iff n == 0 (mod 3) or P(n+1) == P(n) (mod 3); this should have asymptotic probability 2/3, and explains some of the above comment. - Robert Israel, Mar 26 2015

			a(4)=(11-3)+(11-5)+(11-7)=18.

Robert Israel, Table of n, a(n) for n = 1..10000 (corrected by Ray Chandler, Jan 19 2019)

Cf. A001223, A152535, A206802 (a(n)/2), A206803 (= partial sums of this), A206804, A206817.

N:= 1000: # to get terms for all odd primes <= N
P:= select(isprime,[seq(2*i+1, i=1..floor((N-1)/2))]):
Q:= ListTools[PartialSums](P):
seq(n*P[n]-Q[n],n=2..nops(P)); # Robert Israel, Mar 26 2015

s[k_] := Prime[k + 1]; p[n_] := Sum[s[k], {k, 1, n}]; c[n_] := n*s[n] - p[n]; Table[c[n], {n, 2, 100}]

A185382(n)=(n-1)*prime(n+1)-sum(k=2,n-1,prime(k)) \\ M. F. Hasler, May 02 2015

a(n) = (n-1)*A065091(n) - A071148(n-1) = (n-1)*prime(n+1) - sum_{1 < k <= n} prime(k). [Corrected and extended by M. F. Hasler, May 02 2015]
a(n) = A206803(n) - A206803(n-1).
a(n) = Sum_{j=1..n-1} j*A001223(j+1). - Robert Israel, Mar 26 2015

Edited and a(1)=0 prefixed by M. F. Hasler, May 02 2015

A071150 Primes p such that the sum of all odd primes <= p is also a prime.

Original entry on oeis.org

3, 29, 53, 61, 251, 263, 293, 317, 359, 383, 503, 641, 647, 787, 821, 827, 911, 1097, 1163, 1249, 1583, 1759, 1783, 1861, 1907, 2017, 2287, 2297, 2593, 2819, 2837, 2861, 3041, 3079, 3181, 3461, 3541, 3557, 3643, 3779, 4259, 4409, 4457, 4597, 4691, 4729, 4789

Offset: 1

Labos Elemer, May 13 2002

			29 is a prime and 3 + 5 + 7 + 11 + 13 + 17 + 19 + 23 + 29 = 127 (also a prime), so 29 is a term. - _Jon E. Schoenfield_, Mar 29 2021

R. J. Mathar, Table of n, a(n) for n = 1..5908

Analogous to A013917.

Cf. A065091, A071148, A071149, A013916, A013917, A013918, A007504.

SoddP := proc(n)
    option remember;
    if n <= 2 then
        0;
    elif isprime(n) then
        procname(n-1)+n;
    else
        procname(n-1);
    fi ;
end proc:
isA071150 := proc(n)
    if isprime(n) and isprime(SoddP(n)) then
        true;
    else
        false;
    end if;
end proc:
n := 1 ;
for i from 3 by 2 do
    if isA071150(i) then
        printf("%d %d\n",n,i) ;
        n := n+1 ;
    end if;
end do: # R. J. Mathar, Feb 13 2015

Function[s, Select[Array[Take[s, #] &, Length@ s], PrimeQ@ Total@ # &][[All, -1]]]@ Prime@ Range[2, 640] (* Michael De Vlieger, Jul 18 2017 *)
Module[{nn=650,pr},pr=Prime[Range[2,nn]];Table[If[PrimeQ[Total[Take[ pr, n]]], pr[[n]],Nothing],{n,nn-1}]] (* Harvey P. Dale, May 12 2018 *)

from sympy import isprime, nextprime
def aupto(limit):
  p, s, alst = 3, 3, []
  while p <= limit:
    if isprime(s): alst.append(p)
    p = nextprime(p)
    s += p
  return alst
print(aupto(4789)) # Michael S. Branicky, Mar 29 2021

A071151 Primes which are the sum of the first k odd primes for some k.

Original entry on oeis.org

3, 127, 379, 499, 6079, 6599, 8273, 9521, 11597, 13099, 22037, 33623, 34913, 49279, 52517, 54167, 64613, 92951, 101999, 116531, 182107, 222269, 225829, 240379, 255443, 283079, 356387, 360977, 448867, 535669, 541339, 552751, 611953, 624209

Offset: 1

Labos Elemer, May 13 2002

nonn

T. D. Noe, Table of n, a(n) for n = 1..1000

Analogous to A013918.

Cf. A013916-A013918, A065091, A071148-A071150, A007504.

s=0;lst={};Do[p=Prime[n];s+=p;If[PrimeQ[s],AppendTo[lst,s]],{n,2,7!}];lst (* Vladimir Joseph Stephan Orlovsky, Jan 28 2009 *)
Select[Accumulate[Prime[Range[2,500]]],PrimeQ]  (* Harvey P. Dale, Mar 14 2011 *)

list(lim)=my(v=List(),s); forprime(p=3,, if((s+=p)>lim, return(Vec(v))); if(isprime(s), listput(v,s))) \\ Charles R Greathouse IV, May 22 2017

from sympy import isprime, nextprime; m = 0; p = 2
while p < 3100:
    p = nextprime(p); m += p
    if isprime(m): print(m, end = ', ') # Ya-Ping Lu, Dec 24 2024

Name simplified by Charles R Greathouse IV, May 22 2017

A203008 (n-1)-st elementary symmetric function of the first n odd primes; a(0) = 0.

Original entry on oeis.org

0, 1, 8, 71, 886, 12673, 230456, 4633919, 111429982, 3343015913, 106868339918, 4054408822031, 169941130770676, 7459593754902673, 357142287146260646, 19235986110046059943, 1151217759731312559002, 71185663518687172418657

Offset: 0

Clark Kimberling, Dec 29 2011

nonn

Arithmetic derivative of the product of first n odd primes. - Antti Karttunen, Jan 31 2024

Primes occur at indices: 3, 19, 23, 117, 119, 127, 161, 209, ..., and they are: 71, 346723099672193960193396979, 15360643606799479140185671512081451, ... - Antti Karttunen, Feb 06 2024

Antti Karttunen, Table of n, a(n) for n = 0..349

Cf. A000035, A003415, A024451, A060389, A070826 (n-th. symm. function), A071148 (1st symm. func), A327860.

f[k_] := Prime[k + 1]; t[n_] := Table[f[k], {k, 1, n}]
a[n_] := SymmetricPolynomial[n - 1, t[n]]
Table[a[n], {n, 1, 16}] (* A203008 *)

A002110(n) = prod(i=1,n,prime(i));
A003415(n) = if(n<=1, 0, my(f=factor(n)); n*sum(i=1, #f~, f[i, 2]/f[i, 1]));
A203008(n) = if(!n,n,A003415(A002110(1+n)/2)); \\ Antti Karttunen, Jan 31 2024

From Antti Karttunen, Jan 31 2024 and Feb 06 2024: (Start)
a(n) = A003415(A070826(1+n)) = (1/2)*(A024451(1+n)-A070826(1+n)).
For n >= 1, a(n) = A327860(A060389(n)).
A000035(a(n)) = A000035(n).
(End)

Term a(0) = 0 prepended by Antti Karttunen, Jan 31 2024

A373826 Sorted positions of first appearances in the run-lengths (differing by 0) of the antirun-lengths (differing by > 2) of the odd primes.

Original entry on oeis.org

1, 4, 38, 6781, 23238, 26100

Offset: 1

Gus Wiseman, Jun 22 2024

Sorted positions of first appearances in A373820 (run-lengths of A027833 with 1 prepended).

			The odd primes begin:
3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, ...
with antiruns (differing by > 2):
(3), (5), (7,11), (13,17), (19,23,29), (31,37,41), (43,47,53,59), ...
with lengths:
1, 1, 2, 2, 3, 3, 4, 3, 6, 2, 5, 2, 6, 2, 2, 4, 3, 5, 3, 4, 5, 12, ...
which have runs:
(1,1), (2,2), (3,3), (4), (3), (6), (2), (5), (2), (6), (2,2), (4), ...
with lengths:
2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, ...
with sorted positions of first appearances a(n).

Sorted positions of first appearances in A373820, cf. A027833.
For runs we have A373824 (unsorted A373825), sorted firsts of A373819.
The unsorted version is A373827.
A000040 lists the primes.
A001223 gives differences of consecutive primes, run-lengths A333254, run-lengths of run-lengths A373821.
A046933 counts composite numbers between primes.
A065855 counts composite numbers up to n.
A071148 gives partial sums of odd primes.
Cf. A001359, A006512, A025584, A037201, A038664, A054265, A067774, A176246, A251092, A373404, A373405, A373406.

t=Length/@Split[Length /@ Split[Select[Range[3,10000],PrimeQ],#1+2!=#2&]];
Select[Range[Length[t]],FreeQ[Take[t,#-1],t[[#]]]&]

cp's OEIS Frontend

A373822 Sum of the n-th maximal run of first differences of odd primes.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A373825 Position of first appearance of n in the run-lengths (differing by 0) of the run-lengths (differing by 2) of the odd primes.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A049579 Numbers k such that prime(k)+2 divides (prime(k)-1)!.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Extensions

A373819 Run-lengths (differing by 0) of the run-lengths (differing by 2) of the odd primes.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A373824 Sorted positions of first appearances in the run-lengths (differing by 0) of the run-lengths (differing by 2) of the odd primes.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A185382 Sum_{j=1..n-1} P(n)-P(j), where P(j) = A065091(j) is the j-th odd prime.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

PARI

Formula

Extensions

A071150 Primes p such that the sum of all odd primes <= p is also a prime.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Python

A071151 Primes which are the sum of the first k odd primes for some k.

Views

Author

Keywords

Links