A259384 Palindromic numbers in bases 6 and 8 written in base 10.

0, 1, 2, 3, 4, 5, 7, 154, 178, 203, 5001, 7409, 315721, 567434, 1032507, 46823602, 56939099, 84572293, 119204743, 1420737297, 1830945641, 2115191225, 3286138051, 3292861699, 4061216947, 8094406311, 43253138565, 80375377033, 88574916241, 108218625313, 116606986537, 116755331881, 166787896538, 186431605610, 318743407660, 396619220597, 1756866976011, 4920262093249, 11760498311914, 15804478291811, 15813860880803, 24722285628901, 33004205249575, 55584258482529, 371039856325905, 401205063672537, 516268720555889

Offset

1,3

Links

Giovanni Resta, Table of n, a(n) for n = 1..74

Index entries for sequences related to palindromes

Formula

Intersection of A029953 and A029803.

Example

178 is in the sequence because 178_10 = 262_8 = 454_6.

Mathematica

(* first load nthPalindromeBase from A002113 *) palQ[n_Integer, base_Integer] := Block[{}, Reverse[ idn = IntegerDigits[n, base]] == idn]; k = 0; lst = {}; While[k < 21000000, pp = nthPalindromeBase[k, 8]; If[palQ[pp, 6], AppendTo[lst, pp]; Print[pp]]; k++]; lst
b1=6; b2=8; lst={}; Do[d1=IntegerDigits[n, b1]; d2=IntegerDigits[n, b2]; If[d1==Reverse[d1]&&d2==Reverse[d2], AppendTo[lst, n]], {n, 0, 10000000}]; lst (* Vincenzo Librandi, Jul 17 2015 *)

Crossrefs

Cf. A048268, A060792, A097856, A097928, A182232, A259374, A097929, A182233, A259375, A259376, A097930, A182234, A259377, A259378, A249156, A097931, A259380, A259381, A259382, A259383, A259384, A099145, A259385, A259386, A259387, A259388, A259389, A259390, A099146, A007632, A007633, A029961, A029962, A029963, A029964, A029804, A029965, A029966, A029967, A029968, A029969, A029970, A029731, A097855, A250408, A250409, A250410, A250411, A099165, A250412.

Sequence in context: A029963 A259389 A277217 * A285888 A028986 A327324

Adjacent sequences: A259381 A259382 A259383 * A259385 A259386 A259387

Keyword

nonn,base

Author

Eric A. Schmidt and Robert G. Wilson v, Jul 16 2015

Status

approved