A094804 Number of primes in the trajectory of n under the juggler map of A094683.

0, 0, 1, 4, 1, 3, 1, 2, 1, 2, 4, 2, 4, 2, 4, 2, 1, 2, 1, 3, 1, 2, 1, 5, 1, 2, 3, 2, 3, 5, 3, 3, 3, 2, 3, 2, 1, 2, 1, 2, 1, 2, 1, 3, 1, 1, 1, 3, 1, 4, 2, 3, 2, 3, 2, 2, 2, 1, 2, 4, 2, 3, 2, 1, 1, 1, 1, 6, 1, 4, 1, 2, 1, 3, 1, 1, 1, 3, 1, 4, 1, 1, 2, 3, 2, 4, 2, 3, 2, 3, 2, 5, 2, 5, 2, 2, 2, 4, 2, 1, 4, 3, 4, 2, 4

Offset

0,4

Links

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

Example

3 -> 5 -> 11 -> 36 -> 6 -> 2 -> 1, so in this trajectory 3, 5, 11 and 2 are primes, hence a(3) = 4.

Mathematica

Table[Count[NestWhileList[If[EvenQ[#], Floor[Sqrt[#]], Floor[(Sqrt[#])^3]]&, n, #>1&], _?PrimeQ], {n, 0, 120}] (* Harvey P. Dale, Sep 26 2021 *)

Crossrefs

Sequence in context: A075447 A217684 A327980 * A232633 A089612 A353776

Adjacent sequences: A094801 A094802 A094803 * A094805 A094806 A094807

Keyword

easy,nonn

Author

Jason Earls, Jun 11 2004

Status

approved