OFFSET
0,2
EXAMPLE
MAPLE
f:= proc(n) local x, i;
x:= n;
for i from 0 do
if numtheory:-bigomega(x) <> 2 then return i fi;
x:= x + convert(convert(x, base, 10), `+`);
od
end proc:
V:= Array(0..12): count:= 0:
for i from 1 while count < 13 do
v:= f(i);
if v <= 12 and V[v] = 0 then V[v]:= i; count:= count+1 fi
od:
convert(V, list);
PROG
(PARI) a(n) = if(n==0, return(1)); for(k=1, oo, if(bigomega(k) == 2, my(c=1, t=k+sumdigits(k)); while(bigomega(t) == 2, c += 1; t += sumdigits(t)); if(c == n, return(k)))); \\ Daniel Suteu, Nov 03 2024
CROSSREFS
KEYWORD
nonn,base,more
AUTHOR
Robert Israel, Oct 01 2024
EXTENSIONS
a(13) from Daniel Suteu, Nov 03 2024
STATUS
approved