A308657 Smallest number that is nontrivially palindromic in n consecutive number bases.
3, 10, 178
Offset: 1
Examples
a(1) = 3 because it is the smallest nontrivial palindrome in some number base: 11 when written in binary. a(2) = A279092(1) = 10 because it is the smallest nontrivial palindrome in two consecutive number bases, namely, bases 3 and 4: 101 and 22 when written in those number bases, respectively. a(3) = A279093(1) = 178 since it can be written as a palindrome, in three consecutive number bases, and it is the smallest such number. Those bases are 6, 7, 8 and those representations are 454, 343, 262.
Links
Crossrefs
Programs
-
Mathematica
aQ[n_, m_] := SequenceCount[Length[(d = IntegerDigits[n, #])] > 1 && PalindromeQ[d] & /@ Range[2, Ceiling[Sqrt[n]]], Table[True, {m}]] > 0; a[m_] := Module[{n = 2}, While[!aQ[n, m], n++]; n]; Array[a, 3] (* Amiram Eldar, Jul 19 2019 *)
Comments