OFFSET
1,1
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
Eric Weisstein's World of Mathematics, Hoax Number.
PROG
(PARI) ishoax(m) = !isprime(m) && (sumdigits(m) == vecsum(apply(sumdigits, factor(m)[, 1]))); \\ A019506
lista(nn) = apply(sumdigits, select(ishoax, [1..nn])); \\ Michel Marcus, Feb 24 2023
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved