OFFSET
1,1
LINKS
Harry J. Smith, Table of n, a(n) for n = 1..500
EXAMPLE
2349 belongs to the sequence as (2*3*4*9)/(2+3+4+9) = 216/18 = 12.
MATHEMATICA
okQ[n_]:=Module[{idn=IntegerDigits[n]}, Times@@idn/Total[idn]==12]
Select[Range[10000], okQ] (* Harvey P. Dale, Nov 25 2010 *)
PROG
(PARI) isok(n) = my(d=digits(n)); vecprod(d)==12*vecsum(d) \\ Mohammed Yaseen, Sep 12 2022
(Python)
from math import prod
def ok(n): d = list(map(int, str(n))); return prod(d) == 12*sum(d)
print([k for k in range(1, 4400) if ok(k)]) # Michael S. Branicky, Sep 12 2022
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Amarnath Murthy, Jun 28 2001
EXTENSIONS
Corrected and extended by Larry Reeves (larryr(AT)acm.org), Jul 06 2001
More terms from Harvey P. Dale, Nov 25 2010
Offset corrected by Mohammed Yaseen, Sep 12 2022
STATUS
approved