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 A111238 #13 Apr 27 2024 12:04:23
%S A111238 2,3,9,22,23,24,31,39,40,43,44,47,48,49,50,58,59,66,67,70,76,81,84,88,
%T A111238 89,97,98,100,119,122,123,130,131,138,139,144,145,150,151,152,163,168,
%U A111238 174,178,179,185,197,200,204,207,217,218,221,225,226,227
%N A111238 Indices k where A109890(k) is prime.
%H A111238 Michael De Vlieger, <a href="/A111238/b111238.txt">Table of n, a(n) for n = 1..10000</a>
%H A111238 Michael De Vlieger, <a href="/A111238/a111238.png">Log log scatterplot of A109890(n)</a>, n = 1..10^5, showing primes in red and nonprimes in dark blue.
%t A111238 nn = 240; c[_] := False; a[1] = 1; a[2] = 2; s = 3; c[1] = c[2] = True;
%t A111238 {2}~Join~Reap[Monitor[Do[k = SelectFirst[Divisors[s], ! c[#] &];
%t A111238 c[k] = True; s += k;
%t A111238 If[PrimeQ[k], Sow[n]], {n, 3, nn}], n] ][[-1, 1]] (* _Michael De Vlieger_, Apr 27 2024 *)
%Y A111238 Cf. A109890, A111238, A111239, A111240.
%K A111238 nonn
%O A111238 1,1
%A A111238 _N. J. A. Sloane_, Oct 30 2005