A122645 a(n) = phi(n)_phi(n) where phi() = A000010.

1, 1, 2, 2, 4, 2, 6, 4, 6, 4, 10, 4, 14, 6, 8, 8, 22, 6, 26, 8, 14, 10, 46, 8, 40, 14, 26, 14, 64, 8, 90, 22, 40, 22, 52, 14, 114, 26, 52, 22, 160, 14, 170, 40, 52, 46, 190, 22, 170, 40, 98, 52, 262, 26, 160, 52, 114, 64, 298, 22, 360, 90, 114, 98, 200, 40, 402, 98, 180, 52, 490

Offset

1,3

Comments

See A122618 for notation.

Links

Antti Karttunen, Table of n, a(n) for n = 1..10000

Formula

a(n) = A122618(A000010(n)). - Antti Karttunen, Dec 05 2017

Maple

a:= n-> (b-> (l-> add(l[i]*b^(i-1), i=1..nops(l)))(
         convert(b, base, 10)))(numtheory[phi](n)):
seq(a(n), n=1..80);  # Alois P. Heinz, Jul 04 2022

Prog

(PARI)
A122618(n, d=digits(n)) = d*vectorv(#d, i, n^(#d-i)); \\ M. F. Hasler, Apr 22 2015
A122645(n) = A122618(eulerphi(n)); \\ Antti Karttunen, Dec 05 2017

Crossrefs

Cf. A000010, A122618.

Sequence in context: A372681 A372677 A003978 * A378649 A372676 A122646

Adjacent sequences: A122642 A122643 A122644 * A122646 A122647 A122648

Keyword

nonn,base,look

Author

N. J. A. Sloane, Sep 21 2006

Status

approved