OFFSET
1,1
COMMENTS
I made this up to demonstrate how easy it is to construct dull but unguessable sequences with short descriptions.
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..10000
MAPLE
with(numtheory); [ seq(ithprime(phi(i))+phi(ithprime(i)), i=1..80) ];
MATHEMATICA
Table[Prime[EulerPhi[n]] + EulerPhi[Prime[n]], {n, 100}] (* G. C. Greubel, Feb 22 2024 *)
PROG
(Magma) [NthPrime(EulerPhi(n)) + EulerPhi(NthPrime(n)) : n in [1..100]]; // G. C. Greubel, Feb 22 2024
(SageMath) [nth_prime(euler_phi(n)) + euler_phi(nth_prime(n)) for n in range(1, 101)] # G. C. Greubel, Feb 22 2024
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
EXTENSIONS
Offset corrected by G. C. Greubel, Feb 22 2024
STATUS
approved