A325610 Adjusted frequency depth of 2^n - 1.

0, 1, 1, 3, 1, 4, 1, 3, 3, 3, 3, 5, 1, 3, 3, 3, 1, 5, 1, 5, 5, 3, 3, 5, 3, 3, 3, 3, 3, 5, 1, 3, 3, 3, 3, 5, 3, 3, 3, 5, 3, 5, 3, 3, 3, 3, 3, 5, 3, 3, 3, 3, 3, 5, 3, 3, 3, 3, 3, 5, 1, 3, 5, 3, 3, 5, 3, 3, 3, 3, 3, 5, 3, 3, 3, 3, 3, 5, 3, 5, 3, 3, 3, 5, 3, 3, 3

Offset

1,4

Comments

The adjusted frequency depth of a positive integer n is 0 if n = 1, and otherwise it is 1 plus the number of times one must apply A181819 to reach a prime number, where A181819(k = p^i*...*q^j) = prime(i)*...*prime(j) = product of primes indexed by the prime exponents of k. For example, 180 has adjusted frequency depth 5 because we have: 180 -> 18 -> 6 -> 4 -> 3.

Links

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

Mathematica

fdadj[ptn_List]:=If[ptn=={}, 0, Length[NestWhileList[Sort[Length/@Split[#1]]&, ptn, Length[#1]>1&]]];
Table[fdadj[2^n-1], {n, 100}]

Crossrefs

Cf. A001222, A001221, A056239, A071625, A112798, A323014, A325280.

Mersenne numbers: A046051, A046800, A059305, A325611, A325612, A325625.

Sequence in context: A165595 A213181 A301848 * A278536 A143825 A290478

Adjacent sequences: A325607 A325608 A325609 * A325611 A325612 A325613

Keyword

nonn

Author

Gus Wiseman, May 12 2019

Status

approved