OFFSET
1,3
LINKS
David A. Corneth, Table of n, a(n) for n = 1..10000
EXAMPLE
293 is in the sequence because 2+9+3 = 14 == 4 mod 10 and 2*9*3 = 54 == 4 mod 10.
MATHEMATICA
Select[Range[0, 400], Mod[Total[IntegerDigits[#]], 10]==Mod[Times@@ IntegerDigits[ #], 10]&] (* Harvey P. Dale, Oct 15 2021 *)
PROG
(JavaScript)
for (i=0; i<1000; i++) {
s=i.toString().split("");
sl=s.length;
c=0; d=1;
for (j=0; j<sl; j++) {c+=s[j]*1; d*=s[j]; }
c%=10; d%=10;
if (c==d) document.write(i+", ");
}
(PARI) is(n) = my(d=digits(n)); vecsum(d)%10==vecprod(d)%10 \\ David A. Corneth, Oct 15 2021
(Python)
from math import prod
def ok(n): d = list(map(int, str(n))); return sum(d)%10 == prod(d)%10
print([k for k in range(378) if ok(k)]) # Michael S. Branicky, Oct 15 2021
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Jon Perry, Nov 28 2013
EXTENSIONS
Offset changed from 0 to 1 by N. J. A. Sloane, Oct 15 2021
STATUS
approved