A093723 -id:A093723 - cp's OEIS frontend

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

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}]]

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.

Original entry on oeis.org

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

cp's OEIS Frontend

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

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica