cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Previous Showing 11-13 of 13 results.

A354886 Numbers that are palindromes in both ternary and balanced ternary representations with representations that are different.

Original entry on oeis.org

16, 52, 160, 484, 1312, 1456, 3904, 4372, 11680, 12688, 13120, 35008, 37960, 39364, 104992, 106288, 113776, 116800, 118096, 314944, 319156, 341224, 350080, 354292, 944800, 948688, 957760, 1023568, 1027456, 1049920, 1058992, 1062880, 2834368, 2847004, 2873572
Offset: 1

Views

Author

Amiram Eldar, Jun 10 2022

Keywords

Comments

Is a(n) == 16 (mod 18) for all n?

Examples

			16 is a term since its ternary representation is 121 and its balanced ternary representation (with 2 standing for the -1 digit) is 1221, and both are palindromes.

Links

Crossrefs

Equals A354885 \ A005836.
Cf. A007089, A014190, A091077, A134027, A140267.

Programs

  • Mathematica
    Select[Range[0, 3*10^6], PalindromeQ[d3 = IntegerDigits[#, 3]] && PalindromeQ[db3 = balTernDigits[#]] && d3 != db3 &] (* using balTernDigits by Robert G. Wilson v at A134027 *)

Formula

a(n) = A091077(n) / 4. - Hugo Pfoertner, Jun 10 2022

A233574 a(n) is the smallest term of either A233010 or A233572 such that |n-a(n)|

Original entry on oeis.org

0, 1, 2, 2, 4, 3, 4, 6, 8, 6, 6, 8, 8, 7, 12, 8, 10, 9, 10, 13, 12, 13, 16, 20, 16, 18, 26, 18, 18, 20, 18, 18, 20, 20, 18, 26, 20, 24, 26, 21, 24, 21, 26, 43, 32, 24, 28, 26, 28, 43, 30, 27, 28, 27, 28, 54, 30, 39, 40, 32, 32, 43, 32, 39, 40, 39, 40, 43, 36
Offset: 0

Views

Author

Lei Zhou, Dec 13 2013

Keywords

Comments

It is conjectured that a(n) exists for all n >= 0.

Examples

			a(19)=13 since 19=13+6=A233010(9)+A233572(3) and 13>6. There is no number in A233010 or A233572 smaller than 13 that satisfies the same condition.

Links

Crossrefs

Cf. A002113, A061917, A006995, A057890, A134027, A233010, A233571, A233572, A233573

Programs

  • Mathematica
    BTDigits[m_Integer, g_] :=
(*This is to determine digits of a number in balanced ternary notation.*)
Module[{n = m, d, sign, t = g},
  If[n != 0, If[n > 0, sign = 1, sign = -1; n = -n];
   d = Ceiling[Log[3, n]]; If[3^d - n <= ((3^d - 1)/2), d++];
   While[Length[t] < d, PrependTo[t, 0]];
   t[[Length[t] + 1 - d]] = sign;
   t = BTDigits[sign*(n - 3^(d - 1)), t]]; t];
BTpaleQ[n_Integer] :=
(*This is to query if a number is an element of sequence A233010.*)
Module[{t, trim = n/3^IntegerExponent[n, 3]},
  t = BTDigits[trim, {0}]; t == Reverse[t]];
BTrteQ[n_Integer] :=
(*This is to query if a number is an element of sequence A233572.*)
Module[{t, trim = n/3^IntegerExponent[n, 3]},
  t = BTDigits[trim, {0}]; DeleteDuplicates[t + Reverse[t]] == {0}];
sa = Select[Range[0, 30000], BTpaleQ[#] &];
(*This is to generate a limited list of A233010.*)
sb = Select[Range[0, 30000], BTrteQ[#] &];
(*This is to generate a limited list of A233572.*)
range = 68; Table[i1 = 0; i2 = 0;
While[If[sa[[i1 + 1]] < sb[[i2 + 1]], i1++; nh = sa[[i1]]; isa = 1,
   i2++; nh = sb[[i2]]; isa = 0]; (2*nh) < n];
While[If[isa == 0, chk = MemberQ[sa, Abs[n - nh]],
   chk = MemberQ[sb, Abs[n - nh]]]; ! chk,
  If[sa[[i1 + 1]] < sb[[i2 + 1]], i1++; nh = sa[[i1]]; isa = 1, i2++;
   nh = sb[[i2]]; isa = 0]];
If[isa == 0, m = sb[[i2]], m = sa[[i1]]]; m, {n, 0, range}]

A233580 In balanced ternary notation, zerofree non-repdigit numbers that are either palindromes or sign reversed palindromes.

Original entry on oeis.org

2, 7, 16, 20, 32, 43, 61, 103, 124, 146, 182, 196, 292, 302, 338, 367, 421, 547, 601, 859, 913, 1039, 1096, 1172, 1280, 1312, 1600, 1640, 1748, 1816, 2560, 2624, 2732, 2776, 3064, 3092, 3200, 3283, 3445, 3823, 3985, 4759, 4921, 5299, 5461, 7663, 7825, 8203
Offset: 1

Views

Author

Lei Zhou, Dec 14 2013

Keywords

Comments

Zerofree numbers in balanced ternary notation can be used as reversible sign operators. This sequence collects such operators that are either in palindrome form or sign reversed palindrome form (which is defined as (n)_bt+Reverse((n)_bt)=0).

Examples

			2 = (1T)_bt in balanced ternary notation, where we use T to represent -1.
1T + T1 = 0, matches the definition of sign reversed palindrome form. So 2 is in the sequence.
Other examples:
7 = (1T1_bt) - palindrome; in the sequence.
13 = (111)_bt - palindrome but repdigit; not in the sequence.
16 = (1TT1)_bt - palindrome; in the sequence.
...
52 = (1T0T1)_bt - palindrome but not zerofree; not in the sequence.

Links

Crossrefs

Cf. A002113, A061917, A006995, A057890, A134027, A233010, A233571, A233572.

Programs

  • Mathematica
    BTDigits[m_Integer, g_] :=
(* This is to determine digits of a number in balanced ternary notation. *)
Module[{n = m, d, sign, t = g},  If[n != 0, If[n > 0, sign = 1,
  sign = -1; n = -n];   d = Ceiling[Log[3, n]]; If[3^d - n <= ((3^d - 1)/2), d++];   While[Length[t] < d, PrependTo[t, 0]]; t[[Length[t] + 1 - d]] = sign;   t = BTDigits[sign*(n - 3^(d - 1)), t]]; t];
BTnum[g_]:=Module[{bo=Reverse[g],data=0,i},Do[data=data+3^(i-1)*bo[[i]],{i,1,Length[bo]}];data];
ct=0;n=0;dg=0;spool={};res={};While[ct<50,n++; nbits = BTDigits[n, {0}];cdg=Length[nbits];If[cdg>dg,If[Length[spool]>0,Do[bits=spool[[j]];If[!MemberQ[bits,0],rb=Reverse[bits]; sign=rb[[1]];bo=Join[bits,-sign*rb];If[MemberQ[bo,-1],data=BTnum[bo];ct++;AppendTo[res,data]];bo=Join[bits,sign*rb];If[MemberQ[bo,-1],data=BTnum[bo];ct++;AppendTo[res,data]]],{j,1,Length[spool]}];Do[bits=spool[[j]];If[!MemberQ[bits,0],rb=Reverse[bits];bo=Join[bits,{-1},rb];If[MemberQ[bo,-1],data=BTnum[bo];ct++;AppendTo[res,data]];bo=Join[bits,{1},rb];If[MemberQ[bo,-1],data=BTnum[bo];ct++;AppendTo[res,data]]],{j,1,Length[spool]}];spool={};dg=cdg]];AppendTo[spool,nbits]];Print[res]
Previous Showing 11-13 of 13 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.