login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A063685 Numbers k such that !k + phi(k) - 1 is prime. 0

%I #19 Nov 20 2022 18:31:31

%S 2,3,4,5,11,20,85,212,4925

%N Numbers k such that !k + phi(k) - 1 is prime.

%C a(10) > 5000. - _J.W.L. (Jan) Eerland_, Nov 19 2022

%C a(10) > 13469. - _J.W.L. (Jan) Eerland_, Nov 20 2022

%t n=1;Monitor[Parallelize[While[True,If[PrimeQ[Sum[Factorial[k],{k,0,n-1}]+EulerPhi[n]-1],Print[n]];n++];n],n] (* _J.W.L. (Jan) Eerland_, Nov 19 2022 *)

%o (PARI) f(n) = sum(k=0,n-1,k!); \\ A003422

%o for(n=1,10^6, if(isprime(f(n)+eulerphi(n)-1),print(n)))

%Y Cf. A003422.

%K nonn,more

%O 1,1

%A _Jason Earls_, Aug 22 2001

%E a(9) from _J.W.L. (Jan) Eerland_, Nov 19 2022

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified April 20 21:11 EDT 2024. Contains 371845 sequences. (Running on oeis4.)