A073316 a(n) = Max d(j), j=1..n-1, where d(j) is the smallest positive number such that 2j+d(j) and 2n+d(j) are both prime. A generalization of A073310.
1, 1, 5, 3, 5, 5, 3, 5, 11, 9, 17, 15, 13, 17, 15, 13, 11, 23, 21, 19, 23, 21, 23, 21, 19, 17, 15, 13, 23, 21, 19, 17, 15, 13, 29, 29, 27, 25, 23, 21, 19, 17, 15, 23, 21, 19, 17, 15, 13, 29, 35, 33, 31, 41, 39, 53, 51, 49, 47, 45, 43, 41, 39, 37, 35, 33, 31, 35, 33, 31, 29, 27
Offset: 2
Examples
a(4) = 5 because d(1)=3 and d(2)=3 and d(3)=5.
References
- R. K. Guy, Unsolved Problems in Number Theory, Third Ed., Springer, 2004.
Links
- T. D. Noe, Table of n, a(n) for n=2..10000
Crossrefs
Cf. A073310.
Programs
-
Mathematica
maxN=200; lst={}; For[n=2, n<=maxN, n++, For[soln={}; j=1, j
2n, Print["Failure at n = ", n]]]; AppendTo[lst, Max[soln]]]; lst
Comments