|
%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
|
