editing
approved
editing
approved
Table[Count[NestWhileList[If[EvenQ[#], Floor[Sqrt[#]], Floor[(Sqrt[#])^3]]&, n, #>1&], _?PrimeQ], {n, 0, 120}] (* Harvey P. Dale, Sep 26 2021 *)
approved
editing
_Jason Earls (zevi_35711(AT)yahoo.com), _, Jun 11 2004
3 -> 5 -> 11 -> 36 -> 6 -> 2 -> 1, so in this trajectory 3, 5, 11, and 2 are primes, hence a(3) = 4.
easy,nonn,new
easy,nonn,new
Jason Earls (jcearlszevi_35711(AT)cableoneyahoo.netcom), Jun 11 2004
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
0,4
3 -> 5 -> 11 -> 36 -> 6 -> 2 -> 1, so in this trajectory 3, 5, 11, and 2 are primes, hence a(3) = 4.
easy,nonn
Jason Earls (jcearls(AT)cableone.net), Jun 11 2004
approved