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.

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

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 [2] 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