A282026 a(n) is the smallest m with gcd(m, 2*n+1) = 1 such that 2*n + 2*m + 1 is composite.
4, 11, 2, 1, 8, 2, 1, 17, 2, 1, 2, 1, 1, 4, 2, 1, 1, 2, 1, 5, 2, 1, 2, 1, 1, 2, 1, 1, 4, 2, 1, 1, 2, 1, 4, 2, 1, 1, 2, 1, 2, 1, 1, 2, 1, 1, 1, 2, 1, 8, 2, 1, 8, 2, 1, 2, 1, 1, 1, 1, 1, 1, 2, 1, 2, 1, 1, 4, 2, 1, 1, 1, 1, 4, 2, 1, 1, 2, 1, 1, 2, 1, 2, 1, 1, 2, 1
Offset: 0
Keywords
Examples
When n=1, 2*n + 1 = 3, and 5, 7, 9, 11, 13, 15, 17, 19, 21, 23 are all either prime or have a common factor with 3. The next term, 25, is OK, and so a(1) = (25 - 3)/2 = 11.
Links
- Altug Alkan, Table of n, a(n) for n = 0..10000
Programs
-
Mathematica
Table[m = 1; While[Nand[CoprimeQ[m, 2 n + 1], CompositeQ[2 (n + m) + 1]], m++]; m, {n, 0, 120}] (* Michael De Vlieger, Feb 18 2017 *)
-
PARI
a(n) = my(k=1); while(isprime(2*n+2*k+1) || gcd(2*n+1, k) != 1, k++); k; \\ Altug Alkan, Feb 13 2017
Extensions
Definition corrected by Altug Alkan, Feb 13 2017
Comments