|
| |
|
|
A111156
|
|
Numbers that look the same when printed upside down.
|
|
1
| |
|
|
0, 69, 88, 96, 609, 808, 906, 6009, 6699, 6889, 6969, 8008, 8698, 8888, 8968, 9006, 9696, 9886, 9966, 60009, 66099, 68089, 69069, 80008, 86098, 88088, 89068, 90006, 96096, 98086, 99066, 600009, 606909, 608809, 609609, 660099, 666999, 668899
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,2
|
|
|
COMMENTS
| Numbers with 1's are excluded.
|
|
|
PROG
| {-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 '8'='8'; f '9'='6'; i('0':x)='6':x; i('6':x)='8':x; i('8':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
|
|
|
CROSSREFS
| Cf. strobogrammatic numbers A000787. If 8's are excluded we get A111065.
Sequence in context: A065209 A045021 A197172 * A140368 A039434 A043257
Adjacent sequences: A111153 A111154 A111155 * A111157 A111158 A111159
|
|
|
KEYWORD
| base,easy,nonn
|
|
|
AUTHOR
| Paul Stoeber (pstoeber(AT)uni-potsdam.de), Oct 09 2005
|
| |
|
|
