|
%I M4480 N1897 #44 Jan 13 2023 11:04:03
%S 0,1,8,11,69,88,96,101,111,181,609,619,689,808,818,888,906,916,986,
%T 1001,1111,1691,1881,1961,6009,6119,6699,6889,6969,8008,8118,8698,
%U 8888,8968,9006,9116,9696,9886,9966,10001,10101,10801,11011,11111,11811,16091,16191
%N Strobogrammatic numbers: the same upside down.
%C Strobogrammatic numbers are a kind of ambigrams that retain the same meaning when viewed upside down. - _Daniel Mondot_, Sep 27 2016
%C "Upside down" here means rotated by 180 degrees (i.e., central symmetry), NOT "vertically flipped" (symmetry w.r.t. horizontal line, which are in A045574). - _M. F. Hasler_, May 04 2012
%D N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).
%D N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
%H Michael S. Branicky, <a href="/A000787/b000787.txt">Table of n, a(n) for n = 1..10000</a> (terms 1..1000 from T. D. Noe)
%H J. M. Howell, <a href="http://www.jstor.org/stable/2688504">Strobogrammatic years</a>, Math. Mag., 34 (1961), p. 182 and 184.
%H N. J. A. Sloane, <a href="https://arxiv.org/abs/2301.03149">"A Handbook of Integer Sequences" Fifty Years Later</a>, arXiv:2301.03149 [math.NT], 2023, p. 5.
%t 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_, Oct 11 2005 *)
%o (Python)
%o from itertools import count, islice, product
%o def ud(s): return s[::-1].translate({ord('6'):ord('9'), ord('9'):ord('6')})
%o def agen():
%o yield from [0, 1, 8]
%o for d in count(2):
%o for start in "1689":
%o for rest in product("01689", repeat=d//2-1):
%o left = start + "".join(rest)
%o right = ud(left)
%o for mid in [[""], ["0", "1", "8"]][d%2]:
%o yield int(left + mid + right)
%o print(list(islice(agen(), 47))) # _Michael S. Branicky_, Mar 29 2022
%Y Cf. A007597 (Primes in this sequence), A057770, A111065, A169731 (another version).
%Y Subsequence of A045574. - _M. F. Hasler_, May 04 2012
%K base,nonn,easy
%O 1,3
%A _N. J. A. Sloane_
%E More terms from _Robert G. Wilson v_, Oct 11 2005
|
