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
Programs
-
Mathematica
Table[ A092613[n]/10, {n, 60}] (* Robert G. Wilson v, Apr 13 2004 *)
-
PARI
{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],","))}
Extensions
More terms and PARI code from Klaus Brockhaus, Apr 12 2004
More terms from Robert G. Wilson v, Apr 13 2004