OFFSET
1,1
EXAMPLE
a(1) = 3 because A064403(1) = 4 and prime(4) - 4 = 7 - 4 = 3.
MATHEMATICA
R=3000; L=Select[Range[R], AllTrue[Prime[#]+{#, -#}, PrimeQ]&]; Prime/@L-L (* James C. McMahon, Feb 18 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, May 19 2005
STATUS
approved