OFFSET
1,1
COMMENTS
Average of pairs: 66,3255,3465,6696,6786,6954,9429,31725,34845,60096,...
MATHEMATICA
Select[ Range[1060], PrimeQ[ # + IntegerDigits[ # ][[1]]] && PrimeQ[ # - IntegerDigits[ # ][[1]]] &]
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Eric Angelini and Robert G. Wilson v, Jun 14 2005
STATUS
approved