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 A079482 #21 Dec 03 2018 05:05:56 %S A079482 1,5,65,1364,40754,1774409,58524465,5327923964,555409903685, %T A079482 70367042561529,5819629108725509,567969628457303709 %N A079482 Smallest number k such that k and k+1 have n and n+1 distinct prime divisors. %e A079482 a(3) = 1364 because 1364 has 3 and 1365 has 4 distinct prime divisors. %t A079482 a[n_] := Module[{k = 1}, While[PrimeNu[k] != n || PrimeNu[k + 1] != n + 1, k++]; k]; Array[a, 10, 0] (* _Amiram Eldar_, Dec 03 2018 *) %o A079482 (PARI) for(n=1,10,k=1; while(omega(k)!=n || omega(k+1)!=n+1,k++); print1(k",")) %Y A079482 Cf. A001221. %K A079482 more,nonn %O A079482 0,2 %A A079482 _Jason Earls_, Jan 16 2003 %E A079482 a(6) from _Ryan Propper_, Jul 21 2006 %E A079482 a(7)-a(8) from _Donovan Johnson_, Apr 05 2008 %E A079482 a(9)-a(11) from _Donovan Johnson_, Feb 04 2009 %E A079482 a(0)=1 preprended by _Rémy Sigrist_, Dec 03 2018