1,2

G. C. Greubel, Table of n, a(n) for n = 1..5000

a(n) = abs(A065091(n) - A014076(n))/2.

a(1)=abs(3-1)/2=1; a(2)=abs(5-9)/2=abs(-2)=2; a(3)=abs(7-15)/2=abs(-4)=4.

A014076 := Select[Range@500, ! PrimeQ@# && OddQ@# &]; A065091 := Prime[Range[2, 500]]; Table[Abs[A065091[[n]] - A014076[[n]]]/2, {n, 1, 50}] (* G. C. Greubel, Sep 17 2017 *)

Cf. A014076, A065091.

Sequence in context: A287224 A077867 A123124 * A291768 A059583 A086370

Adjacent sequences: A166233 A166234 A166235 * A166237 A166238 A166239

nonn

Juri-Stepan Gerasimov, Oct 09 2009

Entries checked by R. J. Mathar, May 21 2010

approved