OFFSET
1,1
LINKS
Chai Wah Wu, Table of n, a(n) for n = 1..500
MATHEMATICA
Table[d = 4; i = 1;
While[ x = IntegerDigits[Prime[i]];
x != Reverse[x] || Count[x, d] != n , i++];
FromDigits[x], {n, 1, 6}] (* Robert Price, Mar 25 2019 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy and Meenakshi Srikanth (menakan_s(AT)yahoo.com), May 21 2003
EXTENSIONS
More terms from Ray G. Opao, Sep 20 2004
Corrected and extended by Giovanni Resta, Feb 08 2006
STATUS
approved