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 A145339 #14 Sep 28 2018 15:20:47
%S A145339 1,2,3,4,4,4,5,6,4,6,6,4,8,6,4,6,4,4,6,8,4,8,4,8,6,8,8,4,8,8,8,8,8,8,
%T A145339 6,8,4,6,4,6,4,8,8,4,9,12,6,8,4,8,8,8,6,8,8,4,6,10,4,8,6,6,12,8,4,6,6,
%U A145339 6,4,12,8,4,8,8,12,4,6,4,8,8,8,4,8,8,8,8,14,4,12,10,4,4,8,12,8,4,6,12,6,4,6
%N A145339 a(n) = the minimum of d(p(n)-1) and d(p(n)+1), where d(m) is the number of divisors of m and p(n) is the n-th prime.
%t A145339 Table[Min[DivisorSigma[0, Prime[n]-1], DivisorSigma[0, Prime[n]+1]], {n, 1, 100}] (* _Stefan Steinerberger_, Oct 11 2008 *)
%o A145339 (PARI) a(n) = my(p = prime(n)); min(numdiv(p-1), numdiv(p+1)); \\ _Michel Marcus_, Sep 28 2018
%Y A145339 Cf. A145340, A008328, A008329, A067889, A103664, A103665.
%K A145339 nonn
%O A145339 1,2
%A A145339 _Leroy Quet_, Oct 08 2008
%E A145339 More terms from _Stefan Steinerberger_ and _Ray Chandler_, Oct 11 2008