A122754 a(n) = 10*n - A101306(n).
8, 15, 20, 23, 32, 39, 42, 43, 50, 51, 60, 63, 72, 79, 82, 89, 90, 99, 102, 111, 118, 119, 126, 127, 130, 139, 146, 149, 150, 157, 160, 169, 172, 173, 174, 183, 186, 193, 196, 203, 204, 213, 222, 229, 232, 233, 242, 249, 252, 253
Offset: 1
Programs
-
Mathematica
Table[Sum[10 - Mod[Prime[n], 10], {n, 1, m}], {m, 1, 50}]
Formula
a(n) = Sum_{i=1..n} (10 - A007652(n)).
Extensions
Definition simplified by the Assoc. Eds. of the OEIS, Mar 27 2010