Search: id:A006072
Results 1-1 of 1 results found.

%I A006072 M4481
%S A006072 0,1,8,11,88,101,111,181,808,818,888,1001,1111,1881,8008,8118,8888,
%T A006072 10001,10101,10801,11011,11111,11811,18081,18181,18881,80008,80108,
%U A006072 80808,81018,81118,81818,88088,88188,88888,100001,101101,108801,110011
%N A006072 Numbers with mirror symmetry about middle.
%C A006072 Apparently this sequence and A111065 have the same parity. - Jeremy Gardiner, 
               Oct 15 2005
%D A006072 N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, 
               Academic Press, 1995 (includes this sequence).
%H A006072 Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/
               TetradicNumber.html">Tetradic Number</a>
%t A006072 NextPalindrome[n_] := Block[{l = Floor[Log[10, n] + 1], idn = IntegerDigits[n]}, 
               If[ Union[idn] == {9}, Return[n + 2], If[l < 2, Return[n + 1], If[ 
               FromDigits[ Reverse[ Take[idn, Ceiling[l/2]]]] > FromDigits[ Take[idn, 
               -Ceiling[l/2]]], FromDigits[ Join[ Take[idn, Ceiling[l/2]], Reverse[ 
               Take[idn, Floor[l/2]]]]], idfhn = FromDigits[ Take[idn, Ceiling[l/
               2]]] + 1; idp = FromDigits[ Join[ IntegerDigits[ idfhn], Drop[ Reverse[ 
               IntegerDigits[ idfhn]], Mod[l, 2]]]]]]]]; np = 0; t = {0}; Do[np 
               = NextPalindrome[np]; If[Union[Join[{0, 1, 8}, IntegerDigits[np]]] 
               == {0, 1, 8}, AppendTo[t, np]], {n, 1150}]; t (* Robert G. Wilson 
               v *)
%Y A006072 Sequence in context: A079607 A000787 A167621 this_sequence A074042 A140478 
               A111021
%Y A006072 Adjacent sequences: A006069 A006070 A006071 this_sequence A006073 A006074 
               A006075
%K A006072 base,nonn,easy
%O A006072 1,3
%A A006072 N. J. A. Sloane (njas(AT)research.att.com).
%E A006072 More terms from Robert G. Wilson v (rgwv(at)rgwv.com), Nov 16 2005

Search completed in 0.002 seconds