A304679 A prime-multiplicity (or run-length) describing recurrence: a(n+1) = A181821(a(n)).

3, 4, 6, 18, 450, 205439850, 241382525361273331926149714645357743772646450

Offset

0,1

Comments

The first entry 3 is optional so has offset 0.

Links

Table of n, a(n) for n=0..6.

Example

The list of multisets with Heinz numbers in the sequence is A014643. The number of k's in row n + 1 is equal to the k-th term of row n. The length of row n is A014644(n).
        3: {2}
        4: {1,1}
        6: {1,2}
       18: {1,2,2}
      450: {1,2,2,3,3}
205439850: {1,2,2,3,3,4,4,4,5,5,5}

Mathematica

Function[m, Times@@Prime/@m]/@NestList[Join@@Table[Table[i, {#[[i]]}], {i, Length[#]}]&, {2}, 6]

Crossrefs

Cf. A001462, A014643, A014644, A055932, A056239, A112798, A130091, A181819, A181821, A182850-A182858, A296150, A275870, A304455, A304678.

Sequence in context: A298149 A136242 A066732 * A265735 A038520 A294990

Adjacent sequences: A304676 A304677 A304678 * A304680 A304681 A304682

Keyword

nonn

Author

Gus Wiseman, May 16 2018

Status

approved