cp's OEIS Frontend

A259380 Palindromic numbers in bases 2 and 8 written in base 10.

%I A259380 #14 Aug 18 2015 12:57:29
%S A259380 0,1,3,5,7,9,27,45,63,65,73,195,219,325,341,365,381,455,471,495,511,
%T A259380 513,585,1539,1755,2565,2709,2925,3069,3591,3735,3951,4095,4097,4161,
%U A259380 4617,4681,12291,12483,13851,14043,20485,20613,20805,20933,21525,21653,21845,21973,23085,23213,23405,23533,24125,24253,24445,24573,28679,28807,28999,29127,29719,29847
%N A259380 Palindromic numbers in bases 2 and 8 written in base 10.
%H A259380 Giovanni Resta, <a href="/A259380/b259380.txt">Table of n, a(n) for n = 1..10000</a>
%H A259380 <a href="/index/Pac#palindromes">Index entries for sequences related to palindromes</a>
%F A259380 Intersection of A006995 and A029803.
%e A259380 2709 is in the sequence because 2709_10 = 5225_8 = 101010010101_2.
%t A259380 (* 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, 2], AppendTo[lst, pp]; Print[pp]]; k++]; lst
%t A259380 b1=2; b2=8; lst={}; Do[d1=IntegerDigits[n, b1]; d2=IntegerDigits[n, b2]; If[d1==Reverse[d1]&&d2==Reverse[d2], AppendTo[lst, n]], {n, 0, 30000}]; lst (* _Vincenzo Librandi_, Jul 17 2015 *)
%Y A259380 Cf. A048268, A060792, A097856, A097928, A182232, A259374, A097929, A182233, A259375, A259376,
%Y A259380 A097930, A182234, A259377, A259378, A249156, A097931, A259380, A259381, A259382, A259383,
%Y A259380 A259384, A099145, A259385, A259386, A259387, A259388, A259389, A259390, A099146, A007632,
%Y A259380 A007633, A029961, A029962, A029963, A029964, A029804, A029965, A029966, A029967, A029968,
%Y A259380 A029969, A029970, A029731, A097855, A250408, A250409, A250410, A250411, A099165, A250412.
%K A259380 base,nonn
%O A259380 1,3
%A A259380 Eric A. Schmidt and _Robert G. Wilson v_, Jul 16 2015