login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A352088
Numbers whose binary and minimal tribonacci representations are both palindromic.
1
0, 1, 3, 5, 45, 2193, 7671, 35889, 53835, 74825, 3026205, 31953871, 86582437, 117169915, 128873391, 701373669, 868430067, 15262037703, 45305389845, 104484026691, 614071181169, 14894476590363, 24382189266573, 86808432666553, 869188423288227, 1352557858988953
OFFSET
1,3
EXAMPLE
The first 5 terms are:
n a(n) A007088(a(n)) A278038(a(n))
-------------------------------------
1 0 0 0
2 1 1 1
3 3 11 11
4 5 101 101
5 45 101101 1000001
MATHEMATICA
t[1] = 1; t[2] = 2; t[3] = 4; t[n_] := t[n] = t[n - 1] + t[n - 2] + t[n - 3]; tribPalQ[n_] := Module[{s = {}, m = n, k}, While[m > 0, k = 1; While[t[k] <= m, k++]; k--; AppendTo[s, k]; m -= t[k]; k = 1]; PalindromeQ[FromDigits @ IntegerDigits[Total[2^(s - 1)], 2]]]; Join[{0}, Select[Range[1, 10^5, 2], PalindromeQ[IntegerDigits[#, 2]] && tribPalQ[#] &]]
CROSSREFS
Intersection of A006995 and A352087.
Similar sequences: A095309, A331193, A331894, A351713, A351718.
Sequence in context: A062633 A240559 A361904 * A307632 A227743 A335752
KEYWORD
nonn,base
AUTHOR
Amiram Eldar, Mar 04 2022
STATUS
approved