A078385 Euler's totient of numbers which can be written as sum of a positive square and a positive cube.

1, 4, 6, 4, 4, 16, 8, 12, 12, 30, 20, 12, 36, 42, 20, 20, 24, 36, 36, 48, 32, 24, 72, 36, 32, 40, 88, 72, 40, 100, 36, 112, 60, 36, 126, 64, 84, 66, 92, 112, 72, 40, 72, 132, 80, 64, 108, 56, 116, 144, 108, 84, 196, 64, 102, 96, 180, 80, 222, 120, 112, 112, 232, 240, 80

Offset: 1

Author

Reinhard Zumkeller, Nov 25 2002

Keywords

• nonn

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A000010, A055394.

Programs

Mathematica

EulerPhi[Select[Range[200], Length[Reduce[a^2 + b^3 == # && a > 0 && b > 0, {a, b}, Integers]] > 0 &]] (* Amiram Eldar, Mar 27 2025 *)

Formula

a(n) = A000010(A055394(n)).