A092613 -id:A092613 - cp's OEIS frontend

A092614 Let p_i(n) = n-th prime ending in i; then a(n) = (p_1(n) + p_3(n) + p_7(n) + p_9(n))/10.

4, 9, 16, 23, 28, 38, 46, 53, 61, 71, 78, 87, 97, 111, 118, 128, 133, 146, 154, 161, 169, 186, 193, 200, 219, 228, 239, 248, 259, 267, 274, 287, 298, 313, 319, 331, 348, 358, 372, 378, 392, 400, 408, 417, 426, 447, 461, 466, 475, 487, 502, 515, 523, 537, 543

Offset: 1

Jorge Coveiro, Apr 11 2004

First differences are in A093723.

A092613/10.

Table[ A092613[n]/10, {n, 60}] (* Robert G. Wilson v, Apr 13 2004 *)

{k=56;m=matrix(9,k);v=[1,0,1,0,0,0,1,0,1];c=vector(9);p=2;d=0;while(d<4,p=nextprime (p+1);r=p%10;c[r]++;if(c[r]<=k,m[r,c[r]]=p;if(c[r]==k,d++)));w=v*m/10;for(j=1,k,print1(w[j],","))}

More terms and PARI code from Klaus Brockhaus, Apr 12 2004

More terms from Robert G. Wilson v, Apr 13 2004

A093723 First differences of A092614.

Original entry on oeis.org

5, 7, 7, 5, 10, 8, 7, 8, 10, 7, 9, 10, 14, 7, 10, 5, 13, 8, 7, 8, 17, 7, 7, 19, 9, 11, 9, 11, 8, 7, 13, 11, 15, 6, 12, 17, 10, 14, 6, 14, 8, 8, 9, 9, 21, 14, 5, 9, 12, 15, 13, 8, 14, 6, 18, 14, 9, 12, 10, 15, 12, 6, 18, 9, 12, 12, 11, 20, 6, 12, 15, 10, 15, 15, 16, 9, 6, 7, 22, 15, 15, 13

Offset: 1

Robert G. Wilson v, Apr 13 2004

A difference of 1, 2 or 3 is impossible.

Cf. A092613, A092614, A007355. The first occurrence of n above appears in A093724.

t = Table[ A092613[n]/10, {n, 85}]; Drop[t, 1] - Drop[t, -1]

A093724 First occurrence of n in A093723, or -1 if n does not occur.

Original entry on oeis.org

109, 1, 34, 2, 6, 11, 5, 26, 35, 17, 13, 33, 75, 21, 55, 24, 68, 45, 79, 148, 202, 236, 261, 230, 193, 330, 481, 524, 771, 227, 618, 1042, 327, 1051, 1128, 687, 966, 632, 1624, 2646, 3739, 2392, 841, 752, 2677, 2785, 3819, 3200, 3598, 1706, 6974, 9479, 9907

Offset: 4

Robert G. Wilson v, Apr 13 2004

nonn

			a(4) = 109 since A092613(110) - A092613(109) = 3191+2963+2927+3119 - 3181-2953-2917-3109 = 12200 - 12160 = 40.

Cf. A092614, A093723.

t = Table[ A092613[n]/10, {n, 10000}]; d = Drop[t, 1] - Drop[t, -1]; f[n_] := Position[d, n, 1, 1]; Flatten[ Table[ f[n], {n, 4, 59}]]

cp's OEIS Frontend

A092614 Let p_i(n) = n-th prime ending in i; then a(n) = (p_1(n) + p_3(n) + p_7(n) + p_9(n))/10.

Views

Author

Keywords

Crossrefs

Programs

Mathematica

PARI

Extensions

A093723 First differences of A092614.

Views

Author

Keywords

Comments

Crossrefs

Programs

Mathematica

A093724 First occurrence of n in A093723, or -1 if n does not occur.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica