OFFSET
1,1
LINKS
Chai Wah Wu, Table of n, a(n) for n = 1..500
MATHEMATICA
digOfInterest = 1;
primes = {};
While[Length[primes] < 6,
n = Length[primes] + 1;
i = 0;
While[Length[primes] != n,
i++;
dig = IntegerDigits[Prime[i]];
If[
(dig == Reverse[dig]) &&
(Count[dig, digOfInterest] == n),
AppendTo[primes, FromDigits[dig]];
];
];
];
primes
(* Kevin Southwick, Jul 25 2015 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy and Meenakshi Srikanth (menakan_s(AT)yahoo.com), May 21 2003
EXTENSIONS
More terms from David Wasserman, Dec 06 2004
Corrected and extended by Giovanni Resta, Feb 08 2006
2 more terms from Erich Friedman, Mar 23 2008
STATUS
approved