reviewed
approved
reviewed
approved
proposed
reviewed
editing
proposed
d[x_] := Prime[x+1]-Prime[x] ; t=Table[0, {70}]; Do[s=d[n]/2; If[(d[n+1]==24*s)&&(s<31)&&(t[[s]]==0), t[[s]]=Prime[n]], {n, 2, 100000}]; t
proposed
editing
editing
proposed
a(n) = p is the least Least prime p introducing prime-difference pattern {d,2d 2*d}, where d = 2n, 2*n, i.e., {p, p+2n, 2*n, p+2n2*n+4n4*n} = {p, p+2n, 2*n, p+6n6*n} are consecutive primes.
More Terms corrected and more terms from Jinyuan Wang, Feb 10 2021
5, 397, 503, 1823, 1627, 8317, 5939, 94153, 68539, 69539, 83117, 444187, 542299, 177019, 428873, 1179649, 955511, 1625027, 2541289, 1290683, 19856363, 12183757, 5412091, 23374859, 27248701, 38235013, 21369059, 34718041, 84118081, 84120737, 59859131, 125283913, 44155159, 70136597, 324954127
For n=3: , d = 2n 2*n = 6, d-pattern = {6, 12}, a(3) = 503, first corresponding prime triple is {503, 509, 521}.
(PARI) a(n) = my(p=5, q=3, r=2); until(r+2*n==q&&q+4*n==p, r=q; q=p; p=nextprime(p+1)); r; \\ Jinyuan Wang, Feb 10 2021
More terms from Jinyuan Wang, Feb 10 2021
approved
editing
editing
approved
a(n) = p is the least prime introducing prime-difference pattern {d,2d}, where d = 2n, i.e. , {p, p+2n, p+2n+4n} = {p, p+2n, p+6n} are consecutive primes.
For n=3: d = 2n = 6, d-pattern = {6, 12}, a(3) = 503, first corresponding prime triple is {503, 509, 521}.
approved
editing
_Labos E. (labos(AT)ana.sote.hu), Elemer_, Jan 21 2003