OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
EXAMPLE
p(40)-40=133=7*19.
MATHEMATICA
Transpose[Select[Table[{Prime[n], n}, {n, 200}], PrimeOmega[#[[1]]-#[[2]]] == 2&]][[2]] (* Harvey P. Dale, Jun 05 2015 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Giovanni Resta, Feb 13 2006
STATUS
approved