OFFSET
1,2
COMMENTS
MATHEMATICA
Select[Range[0, 600], Total@ IntegerDigits@ # == Total@ IntegerDigits[5 #] &] (* Michael De Vlieger, Aug 05 2015 *)
PROG
(Magma) [n: n in [0..800] | &+Intseq(n) eq &+Intseq(5*n)]; // Vincenzo Librandi, Aug 05 2015
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Christina Steffan, Jul 05 2015
STATUS
approved