A057335 a(0) = 1, and for n > 0, a(n) = A000040(A000120(n)) * a(floor(n/2)); essentially sequence A055932 generated using A000120, hence sorted by number of factors.
1, 2, 4, 6, 8, 12, 18, 30, 16, 24, 36, 60, 54, 90, 150, 210, 32, 48, 72, 120, 108, 180, 300, 420, 162, 270, 450, 630, 750, 1050, 1470, 2310, 64, 96, 144, 240, 216, 360, 600, 840, 324, 540, 900, 1260, 1500, 2100, 2940, 4620, 486, 810, 1350, 1890, 2250, 3150, 4410
Offset: 0
Examples
From _Gus Wiseman_, Apr 19 2020: (Start) The sequence of terms together with their prime indices begins: 1: {} 2: {1} 4: {1,1} 6: {1,2} 8: {1,1,1} 12: {1,1,2} 18: {1,2,2} 30: {1,2,3} 16: {1,1,1,1} 24: {1,1,1,2} 36: {1,1,2,2} 60: {1,1,2,3} 54: {1,2,2,2} 90: {1,2,2,3} 150: {1,2,3,3} 210: {1,2,3,4} 32: {1,1,1,1,1} 48: {1,1,1,1,2} For example, the 27th composition in standard order is (1,2,1,1), and the normal number with prime signature (1,2,1,1) is 630 = 2*3*3*5*7, so a(27) = 630. (End)
Links
- Michael De Vlieger, Table of n, a(n) for n = 0..10000
Crossrefs
Cf. A324939.
Unsorted prime signature is A124010.
Numbers whose prime signature is aperiodic are A329139.
The reversed version is A334031.
A partial inverse is A334032.
All of the following pertain to compositions in standard order (A066099):
- Length is A000120.
- Sum is A070939.
- Strict compositions are A233564.
- Constant compositions are A272919.
- Aperiodic compositions are A328594.
- Normal compositions are A333217.
- Permutations are A333218.
- Heinz number is A333219.
Programs
-
Mathematica
Table[Times @@ Map[If[# == 0, 1, Prime@ #] &, Accumulate@ IntegerDigits[n, 2]], {n, 0, 54}] (* Michael De Vlieger, May 23 2017 *)
-
PARI
mg(n) = if (n==0, 1, prime(hammingweight(n))); \\ A057334 lista(nn) = {my(v = vector(nn)); v[1] = 1; for (i=2, nn, v[i] = mg(i-1)*v[(i+1)\2];); v;} \\ Michel Marcus, Feb 09 2014
-
PARI
A057335(n) = if(0==n,1,prime(hammingweight(n))*A057335(n\2)); \\ Antti Karttunen, Jul 20 2020
Formula
a(n) = A057334(n) * a (repeated).
a(n) = A336321(2^n). - Peter Munn, Mar 04 2022
Extensions
More terms from Antonio G. Astudillo (afg_astudillo(AT)lycos.com), Mar 29 2003
New primary name from Antti Karttunen, Jul 20 2020
Comments