A092613 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).

40, 90, 160, 230, 280, 380, 460, 530, 610, 710, 780, 870, 970, 1110, 1180, 1280, 1330, 1460, 1540, 1610, 1690, 1860, 1930, 2000, 2190, 2280, 2390, 2480, 2590, 2670, 2740, 2870, 2980, 3130, 3190, 3310, 3480, 3580, 3720, 3780, 3920, 4000, 4080, 4170, 4260

Offset: 1

Author

Jorge Coveiro, Apr 11 2004

Keywords

• base
• nonn

Comments

All terms end in 0, first term to end in just 00 is a(67), with 000 a(24) and with 0000 is a(1168). - Robert G. Wilson v, Apr 13 2004

Examples

			a(1) = 3+7+11+19 = 40.
a(2) = 13+17+31+29 = 90.
a(3) = 23+37+41+59 = 160.
		

Programs

Mathematica

A092613[n_] := Block[{p = Prime[ Range[5*(n + 10)]]}, Select[p, Mod[ #, 10] == 1 &][[n]] + Select[p, Mod[ #, 10] == 3 &][[n]] + Select[p, Mod[ #, 10] == 7 &][[n]] + Select[p, Mod[ #, 10] == 9 &][[n]]]; Table[ A092613[n], {n, 50}] (* Robert G. Wilson v, Apr 13 2004 *)

Extensions

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