The OEIS is supported by the many generous donors to the OEIS Foundation. Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A047836 "Nullwertzahlen" (or "inverse prime numbers"): n=p1*p2*p3*p4*p5*...*pk, where pi are primes with p1 <= p2 <= p3 <= p4 ...; then p1 = 2 and p1*p2*...*pi >= p(i+1) for all i < k. 12
 2, 4, 8, 12, 16, 24, 32, 36, 40, 48, 56, 60, 64, 72, 80, 84, 96, 108, 112, 120, 128, 132, 144, 160, 168, 176, 180, 192, 200, 208, 216, 224, 240, 252, 256, 264, 280, 288, 300, 312, 320, 324, 336, 352, 360, 384, 392, 396, 400, 408, 416, 420, 432, 440, 448 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS Start with n and reach 2 by repeatedly either dividing by d where d <= the square root or by adding or subtracting 1. The division steps are free, but adding or subtracting 1 costs 1 point. The "value" of n (A047988) is the smallest cost to reach 2. Sequence gives numbers with value 0. a(n) is also the length of the largest Dyck path of the symmetric representation of sigma of the n-th number whose symmetric representation of sigma has only one part. For an illustration see A317305. (Cf. A237593.) - Omar E. Pol, Aug 25 2018 This sequence can be defined equivalently as the increasing terms of the set containing 2 and all the integers such that if n is in the set, then all m * n are in the set for all m <= n. - Giuseppe Melfi, Oct 21 2019 The subsequence giving the largest term with k prime factors (k >= 1) starts 2, 4, 12, 132, 17292, 298995972, ... . - Peter Munn, Jun 04 2020 LINKS T. D. Noe, Table of n, a(n) for n = 1..1000 Thomas Kantke, Das Spiel Minimum und die Zerlegung natürlicher Zahlen, Spektrum der Wissenschaft, No. 4, 1993, pp. 11-13. Andreas Weingartner, Uniform distribution of alpha*n modulo one for a family of integer sequences, arXiv:2303.16819 [math.NT], 2023. FORMULA a(n) = 2 * A174973(n). - Reinhard Zumkeller, Sep 28 2011 The number of terms <= x is c*x/log(x) + O(x/(log(x))^2), where c = 0.612415..., and a(n) = C*n*log(n*log(n)) + O(n), where C = 1/c = 1.63287... This follows from the formula just above. - Andreas Weingartner, Jun 30 2021 EXAMPLE Starting at 24 we divide by 3, 2, then 2, reaching 2. MATHEMATICA nMax = 100; A174973 = Select[Range[10*nMax], AllTrue[Rest[dd = Divisors[#]] / Most[dd], Function[r, r <= 2]]&]; a[n_] := 2*A174973[[n]]; Array[a, nMax] (* Jean-François Alcover, Nov 10 2016, after Reinhard Zumkeller *) PROG (Haskell) import Data.List.Ordered (union) a047836 n = a047836_list !! (n-1) a047836_list = f  where f (x:xs) = x : f (xs `union` map (x *) [2..x]) -- Reinhard Zumkeller, Jun 25 2015, Sep 28 2011 CROSSREFS Cf. A047984, A047985, A047986, A047987, A047988, A052287, A237593, A317305. Sequence in context: A351873 A256941 A324174 * A325762 A231958 A227730 Adjacent sequences: A047833 A047834 A047835 * A047837 A047838 A047839 KEYWORD nonn,nice,easy AUTHOR Thomas Kantke (bytes.more(AT)ibm.net) EXTENSIONS More terms from David W. Wilson STATUS approved

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

Last modified June 9 06:42 EDT 2023. Contains 363168 sequences. (Running on oeis4.)