A122478 Minimum number k>0 such that ((2n+1)^k - (2n-1)^k)/2 is prime.
3, 13, 3, 3, 5, 3, 17, 3, 163, 3, 3, 109, 3, 13, 19, 5, 3, 3, 1879, 3, 13, 379, 7, 1531, 7, 5, 337, 5, 3, 61, 19, 3, 23, 3, 11, 16417, 163, 23, 3, 5, 3, 3, 3, 5
Offset: 1
Programs
-
Mathematica
s={};Do[k=1;Until[PrimeQ[((2n+1)^k-(2n-1)^k)/2],k++];AppendTo[s,k] ,{n,35}];s (* James C. McMahon, Oct 27 2024 *)
Extensions
a(36)=16417 from Max Alekseyev, May 11 2010
Comments