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 A245908 #19 Sep 08 2022 08:46:09 %S A245908 1,1,2,2,3,3,2,3,3,4,3,3,4,4,3,3,4,4,4,4,3,4,4,4,3,4,4,3,4,4,3,5,4,5, %T A245908 4,4,4,3,4,4,4,5,4,3,4,4,5,4,4,5,4,5,4,4,3,4,4,4,4,5,4,4,5,5,4,4,5,4, %U A245908 4,5,4,4,4,5,5,3,5,4,4,5 %N A245908 The number of distinct prime factors of prime(n)^2-1. %H A245908 Jens Kruse Andersen, <a href="/A245908/b245908.txt">Table of n, a(n) for n = 1..10000</a> %F A245908 a(n) = A082863(prime(n)). %F A245908 a(n) = A008334(n) + A008335(n) - 1, if n>1. %p A245908 A245908 := proc(n) %p A245908 A082863(ithprime(n)) ; %p A245908 end proc: %t A245908 Table[PrimeNu[Prime[n]^2 - 1], {n, 100}] (* _Wesley Ivan Hurt_, Aug 05 2014 *) %o A245908 (PARI) vector(100, n, omega(prime(n)^2-1)) \\ _Derek Orr_, Aug 05 2014 %o A245908 (Magma) [#PrimeDivisors(NthPrime(n)^2 -1): n in [1..100]]; // _Vincenzo Librandi_, Apr 27 2019 %Y A245908 Cf. A008334, A008335, A082863. %K A245908 nonn %O A245908 1,3 %A A245908 _R. J. Mathar_, Aug 05 2014