
1, 3, 4, 5, 5, 7, 6, 8, 7, 8, 7, 11, 8, 10, 10, 11, 9, 13, 10, 14, 12, 12, 11, 17, 12, 13, 13, 15, 12, 18, 13, 17, 15, 15, 15, 20, 14, 16, 16, 20, 15, 21, 16, 20, 20, 18, 17, 25, 18, 21, 19, 21, 18, 24, 20, 24, 20, 20, 19, 29, 20, 22, 24, 25, 22, 26, 21, 25, 23, 27, 22, 32, 23, 25
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,2


LINKS

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


FORMULA

a(n) = A000720(n) + A000005(n).


MATHEMATICA

Table[DivisorSigma[0, w]+PrimePi[w], {w, 1, 128}]


PROG

(PARI) a(n) = primepi(n) + numdiv(n); \\ Michel Marcus, Dec 01 2021


CROSSREFS

Cf. A000010, A000005, A000720, A073757, A037228, A063070, A045763.
Sequence in context: A330102 A061146 A332065 * A227215 A229445 A323743
Adjacent sequences: A082511 A082512 A082513 * A082515 A082516 A082517


KEYWORD

easy,nonn,less


AUTHOR

Labos Elemer, Apr 29 2003


EXTENSIONS

Name changed by Wesley Ivan Hurt, Nov 30 2021


STATUS

approved

