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

%I A111065
%S A111065 0,69,96,609,906,6009,6699,6969,9006,9696,9966,60009,66099,69069,90006,
%T A111065 96096,99066,600009,606909,609609,660099,666999,669699,690069,696969,
%U A111065 699669,900006,906906,909606,960096,966996,969696,990066,996966,999666
%N A111065 Numbers that look the same when printed upside down.
%C A111065 Numbers with 1's and 8's are excluded.
%C A111065 Strobogrammatic numbers (A000787) excluding the digits 1 and 8.
%C A111065 Apparently this sequence and A006072 have the same parity. - Jeremy Gardiner, 
               Oct 15 2005
%t A111065 fQ[n_] := Block[{s = {0, 6, 9}, id = IntegerDigits[n]}, If[ Union[ Join[s, 
               id]] == s && (id /. {6 -> 9, 9 -> 6}) == Reverse[id], True, False]]; 
               Select[ Range[0, 10^6], fQ[ # ] &] (Robert G. Wilson v (rgwv(at)rgwv.com), 
               Oct 11 2005)
%o A111065 {-Haskell-} main=print$"0":concat[concat[[reverse(reverse(map f x)++z++x)|x<-y]|z<-["",
               "0"]]|y<-s(iterate i"6")];f '0'='0';f '6'='9';f '9'='6';i('0':x)='6':x;
               i('6':x)='9':x;i('9':x)='0':i x;i""="6";s(x:y@(z:_))=let w:v=s y 
               in if length x==length z then(x:w):v else[x]:w:v
%Y A111065 Cf. strobogrammatic numbers A000787. If 8's are included we get A111156.
%Y A111065 Sequence in context: A039434 A043257 A044037 this_sequence A004237 A004238 
               A039541
%Y A111065 Adjacent sequences: A111062 A111063 A111064 this_sequence A111066 A111067 
               A111068
%K A111065 base,easy,nonn
%O A111065 0,2
%A A111065 Paul Stoeber (pstoeber(AT)uni-potsdam.de), Oct 08 2005

Search completed in 0.001 seconds