This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A259727 #21 Sep 08 2022 08:46:13 %S A259727 0,9,18,27,36,45,54,72,81,90,99,108,117,135,144,171,180,189,198,207, %T A259727 234,270,279,288,297,342,351,360,396,405,414,441,450,459,486,495,504, %U A259727 540,549,558,576,585,594,639,648,657,693,702,711,720,729,756,765,783,792 %N A259727 Sum of digits of a(n) equals the sum of digits of 3*a(n). %C A259727 A007953(a(n)) = A007953(3*a(n)). %C A259727 a(n) is a multiple of 9, but not all multiples of 9 belong to the sequence: e.g., 63 = 7*9: A007953(63) = 6 + 3 = 9, but A007953(3*63) = A007953(189) = 1 + 8 + 9 = 18. %e A259727 99 belongs to the sequence, because A007953(99) = 18 = A007953(297) = A007953(3*99). %t A259727 Select[Range[0, 800], Total@ IntegerDigits@ # == Total@ IntegerDigits[3 #] &] (* _Michael De Vlieger_, Aug 05 2015 *) %o A259727 (PARI) select(x->sumdigits(x)==sumdigits(3*x),vector(10^4,n,n)) \\ _Joerg Arndt_, Jul 04 2015 %o A259727 (Magma) [n: n in [0..800] | &+Intseq(n) eq &+Intseq(3*n)]; // _Vincenzo Librandi_, Aug 05 2015 %Y A259727 Cf. A007953, A070279, A259728, A259729. %K A259727 nonn,easy,base %O A259727 1,2 %A A259727 _Christina Steffan_, Jul 04 2015