A082515 a(n)=A000720(n)+A000010(n).

1, 2, 4, 4, 7, 5, 10, 8, 10, 8, 15, 9, 18, 12, 14, 14, 23, 13, 26, 16, 20, 18, 31, 17, 29, 21, 27, 21, 38, 18, 41, 27, 31, 27, 35, 23, 48, 30, 36, 28, 53, 25, 56, 34, 38, 36, 61, 31, 57, 35, 47, 39, 68, 34, 56, 40, 52, 44, 75, 33, 78, 48, 54, 50, 66, 38, 85, 51, 63, 43, 90, 44

Offset

1,2

Links

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

Mathematica

Table[EulerPhi[w]+PrimePi[w], {w, 1, 128}]

Crossrefs

Cf. A000010, A000005, A000720, A073757, A037228, A063070, A045763.

Sequence in context: A177153 A164719 A104510 * A062855 A274593 A103622

Adjacent sequences: A082512 A082513 A082514 * A082516 A082517 A082518

Keyword

easy,nonn

Author

Labos Elemer, Apr 29 2003

Status

approved