OFFSET
1,1
EXAMPLE
a(13) = 211 since 211+13 = 224 = 2*112. a(25) = 43 since 25+43 = 68 = 2*34.
MATHEMATICA
f[n_] := Block[{k = 1}, While[p = Prime[k]; p + n != 2FromDigits[ Reverse[ IntegerDigits[ p]]] && k < 10^6, k++ ]; If[k == 10^6, 0, Prime[k]]]; Table[ f[n], {n, 75}]
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Robert G. Wilson v, Oct 01 2004
STATUS
approved