OFFSET
1,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..1000
EXAMPLE
a(1)=abs(2-1)=1; a(2)=abs(3-9)=6.
MAPLE
A014076 := proc(n) option remember; local a; if n = 1 then 1; else for a from procname(n-1)+2 by 2 do if not isprime(a) then return a; end if; end do: end if; end proc: A163504 := proc(n) abs(ithprime(n)-A014076(n)) ; end: seq(A163504(n), n=1..80) ; # R. J. Mathar, Oct 10 2009
MATHEMATICA
A014076 := Select[Range[1, 10000, 2], PrimeOmega[#] != 1 &]; Table[Abs[Prime[n] - A014076[[n]]], {n, 1, 50}] (* G. C. Greubel, Jul 27 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Jul 29 2009
EXTENSIONS
An 8 inserted by R. J. Mathar, Oct 10 2009
STATUS
approved