login
A122645
a(n) = phi(n)_phi(n) where phi() = A000010.
1
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
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
Sequence in context: A372681 A372677 A003978 * A372676 A122646 A028496
KEYWORD
nonn,base,look
AUTHOR
N. J. A. Sloane, Sep 21 2006
STATUS
approved