OFFSET
9,1
LINKS
V. Shevelev, Theorems on twin primes-dual case, arXiv:0912.4006 [math.GM], 2009-2014.
MAPLE
A174214 := proc(n) option remember ; if n = 9 then 14 ; elif gcd(procname(n-1), n-1-(-1)^n) = 1 then procname(n-1)+1 ; else 2*n-4 ; end if; end proc:
seq(A174214(n), n=9..100) ; # R. J. Mathar, Mar 16 2010
MATHEMATICA
a[n_] := a[n] = Which[n==9, 14, CoprimeQ[a[n-1], n-1-(-1)^n], a[n-1]+1, True, 2n-4]; Table[a[n], {n, 9, 100}] (* Jean-François Alcover, Feb 02 2016 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Vladimir Shevelev, Mar 12 2010
EXTENSIONS
a(15) corrected and sequence extended by R. J. Mathar, Mar 16 2010
a(15) corrected and a(35)-a(74) added by John W. Layman, Mar 16 2010
STATUS
approved