2,1

a(2) = 1667 because it is the first prime > 5 which is a palindrome in both base 3 and 5.

Do[ k = n + 3; While[ a = IntegerDigits[ k, n ]; b = IntegerDigits[ k, n + 2 ]; !PrimeQ[ k ] || a != Reverse[ a ] || b != Reverse[ b ], k++ ]; Print[ k ], {n, 2, 10} ]

Sequence in context: A119747 A127106 A123658 this_sequence A122465 A003733 A024073

Adjacent sequences: A057196 A057197 A057198 this_sequence A057200 A057201 A057202

nonn

Robert G. Wilson v (rgwv(AT)rgwv.com), Sep 16 2000