login
A347680
Beginning with 3, least prime > a(n-1) using only digits 2 and 3 such that every concatenation a(1),a(2),... is a palindrome.
2
3, 23, 3323, 233323, 22223233323233323, 223333322323332323332322223233323233323, 3322233323332323332322223233323233323223333322323332323332322223233323233323
OFFSET
1,1
COMMENTS
a(11) has 1258 decimal digits.
LINKS
EXAMPLE
3, 323, 3233323,... are all palindromes.
MATHEMATICA
a[1]=3; a[n_]:=a[n]=(t=1; While[!IntegerQ[k=Min[FromDigits/@Select[Select[Tuples[{2, 3}, t], PrimeQ@FromDigits@#&], PalindromeQ@FromDigits@Flatten[{IntegerDigits/@Array[a, n-1], #}]&]]]||k<=a[n-1], t++]; k); Array[a, 5] (* Giorgos Kalogeropoulos, Sep 15 2021 *)
CROSSREFS
Cf. A002113.
Sequence in context: A210734 A166315 A371346 * A113577 A224700 A352333
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane and Chai Wah Wu, Sep 15 2021
STATUS
approved