OFFSET
1,1
COMMENTS
n such that A076423(n) = -1.
EXAMPLE
For 4112 the mapping leads to a fixed point (cf. A076426): 4112 -> 5750 -> 5750 -> ...; for 2074 the mapping leads to a cycle: 2074 -> 7285 -> 7467 -> 9711 -> 7285 -> ...
PROG
(PARI) {stop=20; for(n=1, 13600, c=1; b=1; k=n; while(b&&c<stop, v=divisors(k); a=matsize(v)[2]; z=if(a>1, v[a-1], 1); p=0; while(z>0, d=divrem(z, 10); z=d[1]; p=10*p+d[2]); z=if(k==1, 1, vecmax(component(factor(k), 1))); q=0; while(z>0, d=divrem(z, 10); z=d[1]; q=10*q+d[2]); a=abs(p-q); if(a==0, b=0, k=a; c++)); if(a>0, print1(n, ", ")))}
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Klaus Brockhaus, Oct 11 2002
STATUS
approved