login
Near-misses for A094783: values where A137849(n) = n-1.
0

%I #22 May 03 2014 11:55:07

%S 3,8,18,36,72,420,720,840,1260,3360,7560,20160,554400,2882880,4324320,

%T 36756720,6983776800

%N Near-misses for A094783: values where A137849(n) = n-1.

%e 36 is in this sequence because the only number <= 36 that disqualifies 36 from being in A094783 is 24; its sixth smallest divisor is 8 in contrast with 9 for 36.

%o (PARI) is(n)=my(d=divisors(n),v,miss); for(m=1, n, v=divisors(m); if(vecmin( vector(min(#d, #v), i, v[i]-d[i]))<0,if(miss,return(0),miss=1)));miss==1 \\ _Charles R Greathouse IV_, Apr 29 2014

%Y Cf. A094783, A137849.

%K nonn,more

%O 1,1

%A _J. Lowell_, Apr 15 2014

%E a(6)-a(11) from A137849 b-file by _Michel Marcus_, Apr 16 2014

%E a(12)-a(17) from _Charles R Greathouse IV_, Apr 29 2014