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

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

Offset

1,1

Links

Table of n, a(n) for n=1..17.

Example

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.

Prog

(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

Crossrefs

Cf. A094783, A137849.

Sequence in context: A004035 A169763 A227161 * A366724 A332706 A000234

Adjacent sequences: A241077 A241078 A241079 * A241081 A241082 A241083

Keyword

nonn,more

Author

J. Lowell, Apr 15 2014

Extensions

a(6)-a(11) from A137849 b-file by Michel Marcus, Apr 16 2014

a(12)-a(17) from Charles R Greathouse IV, Apr 29 2014

Status

approved