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 A072275 #10 Feb 06 2019 15:15:18 %S A072275 2,3,4,7,6,0,11,12,30,0,18,0,44,79,47,0,42,0,53,106,1581,0,82,211, %T A072275 1470,595,319,0,169,0,216,2819,177975,38836904,279,0,62947,41203,326, %U A072275 0,647,0,1795,907,8719625,0,369,0,841,12545382,6180,0,820,190066763704011 %N A072275 Least m such that one less than m-th prime has n divisors (or 0 if no such prime exists). %t A072275 Do[ If[ !PrimeQ[n], k = 1; While[ Length[ Divisors[ Prime[k] - 1]] != n, k++ ]; Print[k], Print[0]], {n, 6, 34}] %Y A072275 A000040(a(n)) = A066814(n). %K A072275 nonn %O A072275 2,1 %A A072275 _Lekraj Beedassy_, Jul 09 2002 %E A072275 More terms from _Robert G. Wilson v_, Jul 15 2002 %E A072275 a(35) inserted and a(46)-a(55) added by _Amiram Eldar_, Feb 06 2019