A125212 Numbers m such that no prime exists of the form |k! - m|; or A125211(m) = 0.
1, 2, 10, 16, 28, 34, 36, 40, 46, 50, 51, 52, 56, 57, 58, 64, 66, 70, 76, 78, 82, 86, 87, 88, 92, 93, 94, 96, 100, 106, 112, 116, 120, 124, 126, 130, 134, 135, 136, 142, 144, 146, 147, 148, 154, 156, 160, 162, 166, 170, 171, 172, 176, 177, 178, 184, 186, 188, 189
Offset: 1
Keywords
Examples
A125211 begins {0,0,2,3,2,1,3,2,2,0,5,1,7,1,1,0,9,1,6,1,2,1,4,1,2,1,1,0,5,1,8,1,1,0,2,0,10,1,1,0,6,1,10,1,1,0,10,1,3,0,0,0,7,...}. Thus a(1) = 1, a(2) = 2, a(3) = 10, a(10)-a(12) = {50,51,52}.
Links
- Amiram Eldar, Table of n, a(n) for n = 1..1000
Crossrefs
Programs
-
Mathematica
k={};Do[If[Length[Select[Range[m],PrimeQ[#!-m]&]]==0,AppendTo[k,m]],{m,189}];k (* James C. McMahon, Dec 16 2024 *)
-
PARI
isok(m)={for(k=1, m-1, if(isprime(abs(k!-m)), return(0))); 1} \\ Andrew Howroyd, Dec 16 2024
Comments