OFFSET
1,1
LINKS
Paolo Xausa, Table of n, a(n) for n = 1..10000 (terms 1..5001 from Carole Dubois).
EXAMPLE
a(1) = 379 and 379 is 19*19 with remainder 18;
a(2) = 398 and 398 is 20*19 with remainder 18; etc.
MATHEMATICA
A341188Q[k_] := Mod[k, Total[IntegerDigits[k]]] == 18;
Select[Range[3000], A341188Q] (* Paolo Xausa, Dec 02 2025 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Eric Angelini and Carole Dubois, Feb 06 2021
STATUS
approved
