A171989 a(n) = A000010(A006862(n)).

1, 2, 6, 30, 210, 2310, 29464, 476928, 9671392, 222388792, 6438663000, 200560490130, 7379606916000, 299261862900000, 13004421443456272, 614231422273479360, 31727029501157817600, 1915248189055217892480, 116762424492324428512272

Offset

0,2

Links

Amiram Eldar, Table of n, a(n) for n = 0..98

Maple

A006862 := proc(n) if n = 0 then 2; else 1+mul(ithprime(j), j=1..n) ; end if: end proc: A171989 := proc(n) numtheory[phi](A006862(n)) ; end proc: seq(A171989(n), n=1..18) ; # R. J. Mathar, Jan 30 2010

Prog

(PARI) a(n)=eulerphi(prod(i=1, n, prime(i))+1) \\ Charles R Greathouse IV, Mar 05 2013

Crossrefs

Cf. A000010, A006862.

Sequence in context: A377877 A096775 A331665 * A335069 A361807 A233438

Adjacent sequences: A171986 A171987 A171988 * A171990 A171991 A171992

Keyword

nonn

Author

Giovanni Teofilatto, Jan 21 2010

Extensions

a(1) inserted and extended beyond a(5) by R. J. Mathar, Jan 30 2010

Offset changed to 0 and a(0) prepended by Amiram Eldar, Nov 30 2024

Status

approved