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 A136134 #2 Sep 24 2013 00:41:43 %S A136134 3,5,743,59,312408461,13669,10920223,85691034670497287, %T A136134 795398356293665458781,14301636907,4280339305565030602944575375011 %N A136134 Primes in A136133 (integer log of harmonic numbers sequence). %t A136134 sopfr = Function[x, Plus @@ Map[Times @@ # &, FactorInteger[x]]]; Select[sopfr /@ HarmonicNumber[Range[100]], PrimeQ] %Y A136134 Cf. A136133, A136121, A136122, A001008, A002805. %K A136134 nonn %O A136134 0,1 %A A136134 _Carlos Alves_, Dec 16 2007