OFFSET

1,1

COMMENTS

This is a subsequence of A279092. That is, each term of A279092 either has an equal number of digits in all the corresponding consecutive bases, or does not, in which case it belongs to this sequence.

Most numbers in A279092 do not belong to this sequence. That is, "unbalanced" consecutive palindromes are much rarer than "balanced" consecutive palindromes.

Specifically, any subsequence of this sequence that is given by fixing the maximum allowed number of digits in the consecutive bases seems to be finite. In contrast, every such subsequence of A279092 is known to be infinite.

LINKS

Max Alekseyev, Table of n, a(n) for n = 1..74

EXAMPLE

Number 10 can be written as 2*4^1+2*4^0=(2,2)_{4} in base four as a palindrome, and as 1*3^2+0*3^1+1*3^0=(1,0,1)_{3} in base three as a palindrome. The bases 4,3 are consecutive, and have 2,3 digits in their representations respectively. All of this makes the number 10=a(1) a term of the sequence.

a(1) =10 =(2,2)_{4} =(1,0,1)_{3}

a(2) =130 =(2,0,0,2)_{4} =(1,1,2,1,1)_{3}

a(3) =651 =(3,0,0,3)_{6} =(1,0,1,0,1)_{5}

a(4) =2997 =(5,6,6,5)_{8} =(1,1,5,1,1)_{7}

a(5) =6643 =(1,0,0,0,1,0,0,0,1)_{3} =(1,1,0,0,1,1,1,1,1,0,0,1,1)_{2}

a(6) =6886 =(6,8,8,6)_{10} =(1,0,4,0,1)_{9}

a(7) =9222 =(2,4,3,3,4,2)_{5} =(2,1,0,0,0,1,2)_{4}

a(8) =11950 =(2,3,2,2,2,3,2)_{4} =(1,2,1,1,0,1,1,2,1)_{3}

a(9) =26691 =(3,2,3,3,2,3)_{6} =(1,3,2,3,2,3,1)_{5}

a(10) =27741 =(3,3,2,2,3,3)_{6} =(1,3,4,1,4,3,1)_{5}

MATHEMATICA

c[b1_, d_] := Pick[FromDigits[#, b1 + 1] & /@ #, PalindromeQ[#] && Length[#] > 1 && Length[#] != 2 d + 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[Join[{10}, Flatten[Table[c[b1, d], {d, 2, Ceiling[Log[2, L]/2] + 1}, {b1, 2, Ceiling[L^(1/(2 d))]}]]], # < L &]]]; a[10^6] (* Matej Veselovac, Sep 28 2019 *)

CROSSREFS

KEYWORD

nonn,base,hard

AUTHOR

Matej Veselovac, Sep 26 2019

EXTENSIONS

Edited and terms a(11) onward added by Max Alekseyev, Sep 26 2019

Edited by Max Alekseyev, Jun 14 2020

STATUS

approved