OFFSET
1,1
COMMENTS
If n is in the sequence, there is an index k such that, for m>=k, S(f(n,m))=S(f(n,m+1)), where S(n) is Kempner function A002034(n).
If n is not in the sequence, there is an index k such that S(f(n,m))>S(f(n,m+1)) for m<k, and f(n,m)=1 for m>=k.
EXAMPLE
PROG
(PARI) b(n)=my(m=1, x=n, as=1, p); while(x>1, m++; p=gcd(x, m); x/=p; as*=m/p); as /* A007672(n) */
for(i=1, 10^3, m=i; v=1; while(m>1&&v, n=b(m); if(m==b(n), v=0; print1(i, ", ")); m=n))
CROSSREFS
KEYWORD
nonn
AUTHOR
Antonio Roldán, Apr 08 2015
STATUS
approved