A082186 1 + sum of first n terms of A001221.

1, 2, 3, 4, 5, 7, 8, 9, 10, 12, 13, 15, 16, 18, 20, 21, 22, 24, 25, 27, 29, 31, 32, 34, 35, 37, 38, 40, 41, 44, 45, 46, 48, 50, 52, 54, 55, 57, 59, 61, 62, 65, 66, 68, 70, 72, 73, 75, 76, 78, 80, 82, 83, 85, 87, 89, 91, 93, 94, 97, 98, 100, 102, 103, 105, 108, 109, 111, 113

Offset

1,2

Links

Michael De Vlieger, Table of n, a(n) for n = 1..2000

Maple

with(numtheory): s := 1: for n from 1 to 150 do it := nops(ifactors(n)[2]): s := s+it: printf(`%d, `, s): od: # James A. Sellers, May 19 2003

Mathematica

a082186[n_] := Block[{t = Table[0, {n}], i},
For[i = 0, i < n, t[[i]] = 1 + Plus @@ PrimeNu /@ Range[i], i++]; t]; a082186[69] (* Michael De Vlieger, Dec 24 2014 *)

Crossrefs

Equals 1 + A013939.

Sequence in context: A267307 A032974 A127565 * A099849 A071163 A006644

Adjacent sequences: A082183 A082184 A082185 * A082187 A082188 A082189

Keyword

nonn,easy

Author

Jon Perry, May 09 2003

Extensions

More terms from James A. Sellers, May 19 2003

Status

approved