OFFSET
1,1
EXAMPLE
11 is a term because it is prime and it is the sum of triangular number 10 and its reverse 01.
MATHEMATICA
Take[Select[Union[#+IntegerReverse[#]&/@Accumulate[Range[ 5000]]], PrimeQ], 30] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Aug 29 2016 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Shyam Sunder Gupta, Jul 20 2002
STATUS
approved