A262277 Numbers having in decimal representation the same distinct decimal digits as their 9's complement.
18, 27, 36, 45, 54, 63, 72, 81, 90, 118, 181, 188, 227, 272, 277, 336, 363, 366, 445, 454, 455, 544, 545, 554, 633, 636, 663, 722, 727, 772, 811, 818, 881, 900, 909, 990, 1089, 1098, 1118, 1181, 1188, 1278, 1287, 1368, 1386, 1458, 1485, 1548, 1584, 1638
Offset: 1
Links
- Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
Programs
-
Haskell
import Data.List (nub, sort) a262277 n = a262277_list !! (n-1) a262277_list = filter f [1..] where f x = sort ds' == sort (map (9 -) ds') where ds' = nub $ ds x ds 0 = []; ds z = d : ds z' where (z', d) = divMod z 10 -
PARI
isok(m) = my(d=digits(m), c=apply(x->9-x, d)); Set(d) == Set(c); \\ Michel Marcus, Jan 22 2022
Comments