|
%I #14 Mar 02 2019 02:23:27
%S 0,1,2,3,4,5,6,121,178,235,292,300,2997,6953,7801,10658,13459,16708,
%T 428585,431721,444713,447849,450985,502457,626778,786435,10453500,
%U 27924649
%N Numbers in base 10 that are palindromic in bases 7 and 8.
%C Intersection of A029954 and A029803. - _Michel Marcus_, Oct 09 2014
%H Giovanni Resta, <a href="/A099145/b099145.txt">Table of n, a(n) for n = 1..48</a> (first 37 terms from Robert G. Wilson v)
%e 178 is in the sequence because 178_10 = 343_7 = 262_8.
%t palQ[n_Integer, base_Integer] := Block[{idn = IntegerDigits[n, base]}, idn == Reverse[ idn]]; Select[ Range[ 150000000], palQ[ #, 7] && palQ[ #, 8] &]
%Y Cf. A048268, A060792, A097928, A097929, A097930, A097931, A099146, A029965, A029966, A099147, A099153.
%K base,nonn
%O 1,3
%A _Robert G. Wilson v_, Sep 30 2004
|
