A103861 Euler's totient of prime(n)! - prime(n)# + 1.

1, 1, 72, 4830, 39899952, 6226593544, 355687354472272, 121615851757531824, 25500701524255140352000, 8839501251731586459279018676600, 8202317101101304783411826869132800

Offset

1,3

Links

Amiram Eldar, Table of n, a(n) for n = 1..22

Reinhard Zumkeller, p(n)!-p(n )#+1

Formula

a(n) = A000010(A103855(n)).

Mathematica

EulerPhi[Table[Prime[n]! - Product[Prime[i], {i, 1, n}] + 1, {n, 1, 10}] ](* Amiram Eldar, Feb 21 2020 *)

Crossrefs

Cf. A000010, A103855, A103896.

Sequence in context: A327375 A054557 A167871 * A358117 A358116 A216705

Adjacent sequences: A103858 A103859 A103860 * A103862 A103863 A103864

Keyword

nonn

Author

Reinhard Zumkeller, Feb 20 2005

Status

approved