|
%I #7 Jan 22 2022 12:54:41
%S 18,27,36,45,54,63,72,81,90,118,181,188,227,272,277,336,363,366,445,
%T 454,455,544,545,554,633,636,663,722,727,772,811,818,881,900,909,990,
%U 1089,1098,1118,1181,1188,1278,1287,1368,1386,1458,1485,1548,1584,1638
%N Numbers having in decimal representation the same distinct decimal digits as their 9's complement.
%C If d is a digit of any term then also 9 - d;
%H Reinhard Zumkeller, <a href="/A262277/b262277.txt">Table of n, a(n) for n = 1..10000</a>
%F A227362(A061601(a(n))) = A227362(a(n)).
%o (Haskell)
%o import Data.List (nub, sort)
%o a262277 n = a262277_list !! (n-1)
%o a262277_list = filter f [1..] where
%o f x = sort ds' == sort (map (9 -) ds') where
%o ds' = nub $ ds x
%o ds 0 = []; ds z = d : ds z' where (z', d) = divMod z 10
%o (PARI) isok(m) = my(d=digits(m), c=apply(x->9-x, d)); Set(d) == Set(c); \\ _Michel Marcus_, Jan 22 2022
%Y Cf. A061601, A227362, subsequences: A111708, A050278, A171102.
%K nonn,base
%O 1,1
%A _Reinhard Zumkeller_, Sep 17 2015
|
