%I A000787 M4480 N1897
%S A000787 0,1,8,11,69,88,96,101,111,181,609,619,689,808,818,888,906,916,986,1001,
%T A000787 1111,1691,1881,1961,6009,6119,6699,6889,6969,8008,8118,8698,8888,8968,
%U A000787 9006,9116,9696,9886,9966,10001,10101,10801,11011,11111,11811,16091
%N A000787 Strobogrammatic numbers: the same upside down.
%D A000787 N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973
(includes this sequence).
%D A000787 N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences,
Academic Press, 1995 (includes this sequence).
%D A000787 The editors, "Strobogrammatic years", Math. Mag., 34 (1961), 184.
%t A000787 fQ[n_] := Block[{s = {0, 1, 6, 8, 9}, id = IntegerDigits[n]}, If[ Union[
Join[s, id]] == s && (id /. {6 -> 9, 9 -> 6}) == Reverse[id], True,
False]]; Select[ Range[0, 16190], fQ[ # ] &] (* Robert G. Wilson
v *)
%Y A000787 Cf. A007597, A057770, A111065.
%Y A000787 Sequence in context: A107788 A038289 A079607 this_sequence A167621 A006072
A074042
%Y A000787 Adjacent sequences: A000784 A000785 A000786 this_sequence A000788 A000789
A000790
%K A000787 base,nonn,easy
%O A000787 0,3
%A A000787 N. J. A. Sloane (njas(AT)research.att.com).
%E A000787 More terms from Robert G. Wilson v (rgwv(at)rgwv.com), Oct 11 2005
|