A272040 a(n) = A000010(A000129(n)).
1, 1, 4, 4, 28, 24, 156, 128, 784, 1120, 5740, 2880, 33460, 37128, 150080, 147456, 1128256, 931392, 6446016, 4677120, 28514304, 44450560, 224075664, 106168320, 1265644800, 1560708240, 5970392064, 5588803584, 44560482148, 33497856000, 255263424000, 196368924672, 1210784762880
Offset: 1
Keywords
Examples
a(3) = 4 because a(3) = A000010(A000129(3)) = A000010(5) = 4.
Links
- Amiram Eldar, Table of n, a(n) for n = 1..630
Programs
-
Mathematica
EulerPhi[LinearRecurrence[{2, 1}, {1, 2}, 33]] (* Amiram Eldar, Oct 21 2023 *)
-
PARI
a000129(n) = ([2,1;1,0]^n)[2,1]; a(n) = eulerphi(a000129(n));