OFFSET
1,1
COMMENTS
Theorem: If the sequence is infinite, then there exist infinitely many twin primes.
Conjecture. a(n+1)/a(n) tends to 2.
LINKS
V. Shevelev, Theorems on twin primes-dual case, arXiv:0912.4006 [math.GM], 2009-2014.
MAPLE
A174216 := proc(n) option remember ; if n =1 then 15 ; else for k from procname(n-1)+1 do if 2*A173214(k) = 3*(k-1) then return k; end if; end do ; end if; end proc: # R. J. Mathar, Mar 16 2010
MATHEMATICA
(* b = A174214 *) b[n_] := b[n] = Which[n==9, 14, CoprimeQ[b[n-1], n-1- (-1)^n], b[n-1]+1, True, 2n-4]; a[n_] := a[n] = If[n==1, 15, For[k = a[n- 1]+1, True, k++, If[2b[k] == 3(k-1), Return[k]]]]; Table[Print["a(", n, ") = ", a[n]]; a[n], {n, 1, 22}] (* Jean-François Alcover, Feb 02 2016 *)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Vladimir Shevelev, Mar 12 2010
EXTENSIONS
Terms from a(11) on corrected by R. J. Mathar, Mar 16 2010
I corrected the terms beginning with a(11) and added some new terms. - Vladimir Shevelev, Mar 27 2010
Terms from a(11) onwards were corrected according to independent calculations by R. Mathar, M. Alekseyev, M. Hasler and A. Heinz (SeqFan lists 30 Oct and 1 Nov 2010). - Vladimir Shevelev, Nov 02 2010
STATUS
approved