OFFSET
1,2
PROG
(PARI) isOne(k) = my(d=digits(k)); ((k*vecprod(d)) % vecsum(d)) == 0; \\ A381631
chk(nn) = for (i=0, nn, my(x=10*i+1, d=digits(x)); if (vecmin(d), my(ok=1); for (j=0, 8, if (!isOne(x+j), ok=0; break); ); if (ok, print1(x, ", ")); ); );
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Michel Marcus, Mar 04 2025
EXTENSIONS
a(20)-a(22) from Jinyuan Wang, Mar 05 2025
STATUS
approved
