A279092 Numbers that are nontrivially palindromic in two or more consecutive integer bases.
10, 46, 67, 92, 98, 104, 121, 130, 135, 154, 178, 185, 191, 227, 232, 235, 277, 282, 292, 300, 326, 343, 373, 379, 410, 436, 446, 454, 455, 464, 483, 497, 543, 555, 562, 565, 631, 640, 646, 647, 651, 656, 676, 704, 738, 745, 781, 787, 797, 809, 835, 858, 862
Offset: 1
Examples
10 is in the sequence because the bases in which 10 is nontrivially palindromic include 3 and 4: 10 = 101_3 = 22_4. 178 is in the sequence because the bases in which 178 is nontrivially palindromic include 6, 7, and 8: 178 = 454_6 = 343_7 = 262_8. 252 is nontrivially palindromic in 11 integer bases (2002_5 = 252_10 = ee_17 = cc_20 = 99_27 = 77_35 = 66_41 = 44_62 = 33_83 = 22_125 = 11_251), but none of these bases are consecutive integers, so 252 is not in the sequence.
Links
- MathOverflow, Special linear Diophantine system - is it solvable in general?
- Matej Veselovac, Table of n, a(n) for n = 1..1000 (first 53 terms from _Jon E. Schoenfield_)
Crossrefs
Cf. A002113 (palindromes in base 10), A048268 (smallest palindrome greater than n in bases n and n+1).
Numbers that are palindromic in bases k and k+1: A060792 (k=2), A097928 (k=3), A097929 (k=4), A097930 (k=5), A097931 (k=6), A099145 (k=7), A099146 (k=8), A029965 (k=9), A029966 (k=11).
Cf. A279093 (analogous with three or more consecutive integer bases).
Cf. A327810 (subsequence with different number of digits in those bases).
Programs
-
Mathematica
palQ[n_Integer, base_Integer] := Boole@ Block[{}, Reverse[idn = IntegerDigits[n, base]] == idn]; fQ[n_] := Block[{b = 2}, While[b < n && {palQ[n, b], palQ[n, b + 1]} != {1, 1}, b++]; b < n]; Select[ Range@1000, fQ] (* Robert G. Wilson v, Jan 31 2017 *) c[b1_, d_] := Pick[FromDigits[#, b1 + 1] & /@ #, PalindromeQ[#] && Length[#] > 1 & /@ #] &@ IntegerDigits[ FromDigits[#, b1] & /@ (Flatten[Outer[List, Range[1, b1 - 1], Sequence @@ ConstantArray[Range[0, b1 - 1], d + 0]], d + 0][[All, Join[Range[d + 1], Reverse[Range[1, d + 0]]]]]), b1 + 1]; a[L_] := DeleteDuplicates[Sort[Select[Flatten[Table[c[b1, d], {d, 1, Ceiling[Log[2, L]/2] + 1}, {b1, 2, Ceiling[L ^(1/(2 d))]}]], #
Matej Veselovac, Sep 28 2019 *)
Comments