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 A088807 #22 Jul 04 2024 03:29:37
%S A088807 1,2,3,4,4,5,4,3,6,9,4,9,7,6,5,7,5,7,9,7,12,8,6,8,8,11,8,6,7,10,9,7,13
%N A088807 Number of distinct prime factors of p^p - 1 where p = prime(n).
%F A088807 a(n) = A344870(A000040(n)). - _Amiram Eldar_, Jul 04 2024
%t A088807 PrimeNu/@Table[p^p-1,{p,Prime[Range[30]]}] (* The program takes a long time to run. *) (* _Harvey P. Dale_, Sep 05 2020 *)
%o A088807 (PARI) omegaptop(n,m) = { sr=0; forprime(x=2,n, y=omega(x^x-m); print1(y","); sr += 1.0/y; ); print(); }
%o A088807 (Python)
%o A088807 from sympy import factorint, prime
%o A088807 def a(n): p = prime(n); return len(factorint(p**p-1).values())
%o A088807 print([a(n) for n in range(1, 12)]) # _Michael S. Branicky_, May 27 2022
%Y A088807 Cf. A000040, A088730, A344870.
%K A088807 nonn,more
%O A088807 1,2
%A A088807 _Cino Hilliard_, Nov 23 2003
%E A088807 More terms from _Ray Chandler_, Feb 21 2004
%E A088807 Name clarified, offset and data corrected and a(27)-a(33) added by _Amiram Eldar_, Jul 04 2024