A287092 Strobogrammatic nonpalindromic numbers.
69, 96, 609, 619, 689, 906, 916, 986, 1691, 1961, 6009, 6119, 6699, 6889, 6969, 8698, 8968, 9006, 9116, 9696, 9886, 9966, 16091, 16191, 16891, 19061, 19161, 19861, 60009, 60109, 60809, 61019, 61119, 61819, 66099, 66199, 66899, 68089, 68189, 68889, 69069, 69169, 69869, 86098, 86198, 86898, 89068, 89168
Offset: 1
Programs
-
Mathematica
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, 89168], fQ[ # ] && ! PalindromeQ[ # ] &]
Comments