OFFSET
1,1
PROG
(PARI) isok(n)=my(f=factor(n)); n%2==0 && n>2 && sumdigits(sum(i=1, #f~, f[i, 1]*f[i, 2])) == sumdigits(n) \\ Andrew Howroyd, Jun 19 2021
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Jan 04 1999
EXTENSIONS
Title reworded by Sean A. Irvine, Nov 30 2020
STATUS
approved