OFFSET
1,2
COMMENTS
MATHEMATICA
Select[Range[0, 800], Total@ IntegerDigits@ # == Total@ IntegerDigits[3 #] &] (* Michael De Vlieger, Aug 05 2015 *)
PROG
(PARI) select(x->sumdigits(x)==sumdigits(3*x), vector(10^4, n, n)) \\ Joerg Arndt, Jul 04 2015
(Magma) [n: n in [0..800] | &+Intseq(n) eq &+Intseq(3*n)]; // Vincenzo Librandi, Aug 05 2015
CROSSREFS
KEYWORD
nonn,easy,base
AUTHOR
Christina Steffan, Jul 04 2015
STATUS
approved