cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A259376 Palindromic numbers in bases 4 and 6 written in base 10.

This page as a plain text file.
%I A259376 #11 Aug 18 2015 12:57:29
%S A259376 0,1,2,3,5,21,55,215,819,1885,7373,7517,12691,14539,69313,196606,
%T A259376 1856845,3314083,5494725,33348861,223892055,231755895,322509617,
%U A259376 3614009815,4036503055,4165108015,9233901154,9330794722,12982275395,107074105033,186398221946,270747359295,401478741365,1809863435625,2281658774290,11931403417210,12761538567790,12887266632430,15822654274715,30255762326713,46164680151002,323292550693473,329536806222753
%N A259376 Palindromic numbers in bases 4 and 6 written in base 10.
%H A259376 Giovanni Resta, <a href="/A259376/b259376.txt">Table of n, a(n) for n = 1..64</a>
%F A259376 Intersection of A014190 and A029953.
%e A259376 55 is in the sequence because 55_10 = 131_6 = 313_4.
%t A259376 (* 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, 6]; If[palQ[pp, 4], AppendTo[lst, pp]; Print[pp]]; k++]; lst
%Y A259376 Cf. A048268, A060792, A097856, A097928, A182232, A259374, A097929, A182233, A259375, A259376,
%Y A259376 A097930, A182234, A259377, A259378, A249156, A097931, A259380, A259381, A259382, A259383,
%Y A259376 A259384, A099145, A259385, A259386, A259387, A259388, A259389, A259390, A099146, A007632,
%Y A259376 A007633, A029961, A029962, A029963, A029964, A029804, A029965, A029966, A029967, A029968,
%Y A259376 A029969, A029970, A029731, A097855, A250408, A250409, A250410, A250411, A099165, A250412.
%K A259376 nonn,base
%O A259376 1,3
%A A259376 Eric A. Schmidt and _Robert G. Wilson v_, Jul 15 2015