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 A111272 #8 Aug 09 2015 00:43:02 %S A111272 3,10,2,8,17,49,4,23,41,7,39,29,6,50,79,121,30,151,38,19,267,48,174, %T A111272 21,287,422,240,24,94,22,16,215,861,231,143,140,396,902,18,134,340, %U A111272 310,269,58,12,550,479,210,229,612,221,271,194,540,145,718,168,184,90,14,272 %N A111272 Where n-th prime occurs in A111267. %p A111272 A111267 := proc(nmin) local a,k,qn,dvs; a := [1] ; qn := 5 ; while nops(a) < nmin do dvs := sort([op(numtheory[divisors](qn))]) ; for k from 1 to nops(dvs) do if not dvs[k] in a then a := [op(a),dvs[k]] ; qn := qn+ithprime(nops(a)+1) ; break ; fi ; od ; od; RETURN(a) ; end: A111272 := proc(nmin) local a,a111267,n,i; a := [] ; a111267 := A111267(nmin) ; n := 1; while member( ithprime(n),a111267,'i') do a := [op(a),i] ; n := n+1 ; od; RETURN(a) ; end: A111272(1000) ; # _R. J. Mathar_, Aug 20 2007 %Y A111272 Cf. A111267, A111287. %K A111272 nonn %O A111272 1,1 %A A111272 _N. J. A. Sloane_, Nov 03 2005 %E A111272 More terms from _R. J. Mathar_, Aug 20 2007