A331807 a(n) is the smallest prime number p > n, not yet in the sequence, such that p is a palindrome when written in base n.
3, 13, 5, 31, 7, 71, 73, 109, 11, 199, 157, 313, 197, 241, 17, 307, 19, 419, 401, 463, 23, 599, 577, 701, 677, 757, 29, 929, 991, 1117, 1153, 1123, 1259, 1471, 37, 1481, 1483, 1873, 41, 1723, 43, 1979, 2069, 2161, 47, 2351, 2593, 2549, 2551, 2857, 53, 2969, 2917, 3191, 3137
Offset: 2
Examples
a(2)=3 which is 11 in binary, a(3)=13 which is 111 in ternary, a(4)=5 which is 11 in quaternary, a(16)=17 which is 11 in hexadecimal. If we use the representation described earlier, then: a(2) = 3 is [1, 1]_2, a(3) = 13 is [1, 1, 1]_3, a(4) = 5 is [1, 1]_4, a(11) = 199 is [1, 7, 1]_11, a(13) = 313 is [1, 11, 1]_13, a(16) = 17 is [1, 1]_16, a(48) = 2593 is [1, 6, 1]_48.
Links
- Chai Wah Wu, Table of n, a(n) for n = 2..10000
Crossrefs
Programs
-
Mathematica
Array[Block[{p = Prime[PrimePi[#] + 1]}, While[! PalindromeQ@ IntegerDigits[p, #], p = NextPrime@ p]; p] &, 55, 2] (* Michael De Vlieger, Feb 25 2020 *)
Comments