login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A079717 Subminimal numbers, from minimal numbers by analogy with subfactorials. 0
0, 1, 1, 2, 4, 6, 9, 13, 18, 22, 24, 44, 53, 66, 71, 88, 132, 212, 265, 309, 331, 353, 377, 464, 477, 618, 927, 1059, 1130, 1324, 1507, 1854, 1907, 2318, 2384, 2472, 2781, 3390, 3708, 4521, 5297, 5562, 5651, 7416, 9271, 9535, 10198, 11919, 13562, 16223, 16687, 16952, 17164, 18541, 20395, 22249 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,4

LINKS

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

M. J. Halm, Sequences

FORMULA

a(n) = floor(A007416(n)/e + 1/2).

EXAMPLE

a(6) = 6 because the 6th minimal number is 16 and floor(16/e + 1/2) = 6.

MATHEMATICA

lim = 10^5; s = DivisorSigma[0, Range@ lim]; t = Select[Most@ Union[First@ FirstPosition[s, #] & /@ Range@ 200], # <= lim &]; Table[Floor[t[[n]]/E + 1/2], {n, 56}] (* Michael De Vlieger, Dec 20 2015, Version 10 *)

PROG

(PARI) is_a007416(n)=my(d=numdiv(n)); for(i=1, n-1, if(numdiv(i)==d, return(0))); 1;

for(n=1, 1e4, if(is_a007416(n), print1(floor(n/exp(1) + 1/2), ", "))); \\ Altug Alkan, Dec 20 2015

CROSSREFS

Cf. A000166, A007416.

Sequence in context: A006697 A294860 A183920 * A247179 A319158 A175780

Adjacent sequences:  A079714 A079715 A079716 * A079718 A079719 A079720

KEYWORD

nonn

AUTHOR

Michael Joseph Halm, Feb 17 2003

EXTENSIONS

More terms from Michael De Vlieger, Dec 20 2015

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified November 13 13:15 EST 2018. Contains 317149 sequences. (Running on oeis4.)