This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A094804 #6 Sep 26 2021 14:04:02
%S A094804 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,
%T A094804 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,
%U A094804 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
%N A094804 Number of primes in the trajectory of n under the juggler map of A094683.
%e A094804 3 -> 5 -> 11 -> 36 -> 6 -> 2 -> 1, so in this trajectory 3, 5, 11 and 2 are primes, hence a(3) = 4.
%t A094804 Table[Count[NestWhileList[If[EvenQ[#],Floor[Sqrt[#]],Floor[(Sqrt[#])^3]]&,n,#>1&],_?PrimeQ],{n,0,120}] (* _Harvey P. Dale_, Sep 26 2021 *)
%K A094804 easy,nonn
%O A094804 0,4
%A A094804 _Jason Earls_, Jun 11 2004