|
%I #17 Mar 02 2019 02:23:01
%S 0,1,2,3,4,5,6,7,154,227,300,373,446,455,11314,12547,17876,27310,
%T 889435,894619,899803,926371,1257716,1262900,1268084,1273268,1294652,
%U 1368461,1373645,1405397,2067519,63367795,71877268,98383349
%N Numbers in base 10 that are palindromic in bases 8 and 9.
%C Intersection of A029803 and A029955. - _Michel Marcus_, Oct 09 2014
%H Giovanni Resta, <a href="/A099146/b099146.txt">Table of n, a(n) for n = 1..54</a> (first 41 terms from Robert G. Wilson v)
%e 227 is in the sequence because 227_10 = 343_8 = 272_9.
%t palQ[n_Integer, base_Integer] := Block[{idn = IntegerDigits[n, base]}, idn == Reverse[ idn]]; Select[ Range[ 250000000], palQ[ #, 8] && palQ[ #, 9] &]
%Y Cf. A048268, A060792, A097928, A097929, A097930, A097931, A099145, A029965, A029966, A099147, A099153.
%K base,nonn
%O 1,3
%A _Robert G. Wilson v_, Sep 30 2004
%E Term 0 prepended by _Robert G. Wilson v_, Oct 08 2014
|
