OFFSET
1,2
MAPLE
A023200 := proc(n) option remember; if n = 1 then 3; else p := nextprime(procname(n-1)) ; while not isprime(p+4) do p := nextprime(p) ; end do: p ; end if; end proc:
A001359 := proc(n) option remember; if n = 1 then 3; else p := nextprime(procname(n-1)) ; while not isprime(p+2) do p := nextprime(p) ; end do: p ; end if; end proc:
for n from 1 do if A046132(n)+2 = A006512(n) or A046132(n) = A006512(n)+2 then printf("%d, \n", n); end if; end do: # R. J. Mathar, Nov 03 2011
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Shevelev, Mar 06 2010
EXTENSIONS
Extended beyond 28 by R. J. Mathar, Nov 03 2011
More terms from Michel Marcus, Dec 19 2018
STATUS
approved