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

Author

Jon Perry, May 09 2003

Keywords

• nonn
• easy

Links

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

Crossrefs

Equals 1 + A013939.

Programs

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 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 *)

Extensions

More terms from James Sellers, May 19 2003