[go: up one dir, main page]

login
A259381
Palindromic numbers in bases 3 and 8 written in base 10.
15
0, 1, 2, 4, 121, 130, 203, 316, 8578, 9490, 17492, 944035, 1141652, 1276916, 1554173, 58961443, 67470916, 4099065139, 5691134677, 81452592329, 81473867465, 419572845958, 21056462595764, 363376288168081
OFFSET
1,3
FORMULA
Intersection of A014190 and A029803.
EXAMPLE
121 is in the sequence because 121_10 = 171_8 = 11111_3.
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, 3], AppendTo[lst, pp]; Print[pp]]; k++]; lst
b1=3; 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 *)
KEYWORD
nonn,base
AUTHOR
Eric A. Schmidt and Robert G. Wilson v, Jul 16 2015
STATUS
approved