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 A122138 #8 Sep 15 2024 20:23:57
%S A122138 1,2,3,4,6,8,10,11,12,14,15,18,20,22,23,26,27,32,36,38,39,40,44,47,48,
%T A122138 50,51,52,54,55,56,58,59,60,64,66,68,71,72,74,76,78,80,83,84,86,88,89,
%U A122138 90,92,94,95,96,98,100,102,103,107,108,110,112,114,116,118,120,122,126
%N A122138 Indices k such that A122136(k) is a prime.
%C A122138 The corresponding primes are listed in A122139.
%t A122138 Select[Range[200],PrimeQ[Numerator[Sum[Prime[k]^2,{k,1,#1}]/Product[Prime[k],{k,1,#1}]]]&]
%Y A122138 Cf. A122136, A122137, A122139, A002110, A024450, A007504, A098999, A122102, A122103.
%K A122138 nonn
%O A122138 1,2
%A A122138 _Alexander Adamchuk_, Aug 21 2006