A163120 Sum of the first n digits of the concatenation of all nonprimes.

0, 1, 5, 11, 19, 28, 29, 29, 30, 32, 33, 37, 38, 43, 44, 50, 51, 59, 61, 61, 63, 64, 66, 68, 70, 74, 76, 81, 83, 89, 91, 98, 100, 108, 111, 111, 114, 116, 119, 122, 125, 129, 132, 137, 140, 146, 149, 157, 160, 169, 173, 173, 177, 179, 183, 187, 191, 196, 200, 206, 210, 218

Offset

1,3

Comments

The nonprimes A141468 are concatenated to an infinite word 01468910121415..., and the partial sums are built by collecting one digit at a time.

Links

Table of n, a(n) for n=1..62.

Example

a(10) = 0 + 1 + 4 + 6 + 8 + 9 + 1 + 0 + 1 + 2 = 32.

Mathematica

nn=50; Module[{npd=Flatten[IntegerDigits/@Complement[Range[0, nn], Prime[ Range[ PrimePi[ nn]]]]]}, Accumulate[ npd]] (* Harvey P. Dale, Jan 16 2013 *)

Crossrefs

Cf. A000040, A033308.

Sequence in context: A022823 A094693 A183004 * A051350 A088638 A333675

Adjacent sequences: A163117 A163118 A163119 * A163121 A163122 A163123

Keyword

nonn,base

Author

Juri-Stepan Gerasimov, Jul 21 2009

Extensions

Entries checked by R. J. Mathar, Jul 27 2009

Status

approved