A070163 Primes arising in A070162.

3, 3, 2, 5, 7, 7, 7, 11, 11, 11, 13, 17, 23, 19, 23, 29, 23, 23, 31, 29, 31, 29, 43, 31, 31, 47, 37, 53, 47, 41, 59, 43, 47, 47, 47, 59, 53, 71, 59, 59, 61, 89, 67, 71, 71, 73, 109, 79, 107, 79, 107, 83, 83, 89, 131, 109, 127, 97, 137, 101, 139, 103, 107, 107, 109, 139

Offset

1,1

Links

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

Formula

a(n) = A070162(n) - A000010(A070162(n)) - 1 = A051953(A070162(n)) - 1.

Mathematica

Do[s=n-EulerPhi[n]-1; If[PrimeQ[s], Print[s]], n, 1, 10000]

Prog

(PARI) lista(kmax) = {my(p); for(k = 1, kmax, p = k - eulerphi(k) - 1; if(isprime(p), print1(p, ", "))); } \\ Amiram Eldar, Nov 07 2024

Crossrefs

Cf. A000010, A051953, A070162.

Sequence in context: A143050 A214919 A290599 * A083343 A360736 A292527

Adjacent sequences: A070160 A070161 A070162 * A070164 A070165 A070166

Keyword

nonn

Author

Labos Elemer, Apr 26 2002

Status

approved