A363700 a(n) = phi(2*prime(n)+1).

4, 6, 10, 8, 22, 18, 24, 24, 46, 58, 36, 40, 82, 56, 72, 106, 96, 80, 72, 120, 84, 104, 166, 178, 96, 168, 132, 168, 144, 226, 128, 262, 200, 180, 264, 200, 144, 216, 264, 346, 358, 220, 382, 252, 312, 216, 276, 296, 288, 288, 466, 478, 264, 502, 408, 480, 420, 360, 288, 562

Offset

1,1

Comments

2*prime(n)+1 is prime iff a(n) = 2*prime(n).

Links

Table of n, a(n) for n=1..60.

Formula

a(n) = A000010(A072055(n)).

a(n) = A037225(A000040(n)).

Mathematica

a[n_] := EulerPhi[2*Prime[n] + 1]; Array[a, 100] (* Amiram Eldar, Jun 16 2023 *)

Prog

(PARI) a(n)=eulerphi(2*prime(n)+1)

Crossrefs

Cf. A000010, A000040, A008331, A037225, A072055.

Sequence in context: A114743 A089546 A263483 * A249982 A292767 A117622

Adjacent sequences: A363697 A363698 A363699 * A363701 A363702 A363703

Keyword

nonn

Author

Alain Rocchelli, Jun 16 2023

Status

approved