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 A122137 #2 Mar 31 2012 13:20:28
%S A122137 30,123,195,214,248,300,304,335,343,350,364,367,414,443,543,570,579,
%T A122137 584,590,612,671,691,706,707,734,780,791,799,806,810,827,836,852,880,
%U A122137 938,960,976,1015,1055,1147,1168,1190,1195,1199,1200,1210,1230,1231,1250
%N A122137 Indices n such that A122136[n] = 1, or A024450[n] divides A002110[n].
%F A122137 A122136[ a(n) ] = 1.
%t A122137 Do[f=Numerator[Sum[Prime[k]^2,{k,1,n}]/Product[Prime[k],{k,1,n}]];If[f==1,Print[n]],{n,1,10000}]
%Y A122137 Cf. A024450, A002110, A122136, A122138, A122139.
%K A122137 nonn
%O A122137 1,1
%A A122137 _Alexander Adamchuk_, Aug 21 2006