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 A109986 #10 Jun 18 2016 00:41:50 %S A109986 5,7,3,2,89,83,11,59,53,41,47,43,19,97,17,79,71,73,61,67,13,31,37,29, %T A109986 23,881,887,883,811,859,857,853,809,877,863,839,829,821,827,823,587, %U A109986 557,541,547,509,599,593,571,577,569,563,503,521,523,487,457,449,443 %N A109986 Primes ordered alphabetically by where they occur in A000052. %C A109986 A109987 is semiprimes ordered alphabetically by where they occur in A000052. A109988 is 3-almost primes ordered alphabetically by where they occur in A000052. %H A109986 Robert Israel, <a href="/A109986/b109986.txt">Table of n, a(n) for n = 1..10000</a> %e A109986 a(1) = 5 because five is the first prime in alphabetical order. %e A109986 a(5) = 89 because eighty-nine is the first 2-digit prime in alphabetical order. %p A109986 V:= [seq(select(isprime, [$10^i..10^(i+1)-1]),i=0..3)]: %p A109986 seq(op(V[i][sort(map(convert,V[i],english,'And'), %p A109986 output=permutation)]),i=1..nops(V)); # _Robert Israel_, Jun 17 2016 %t A109986 alph = Last /@ Import["https://oeis.org/A000052/b000052.txt", "Table"]; Take[ %t A109986 Select[alph, PrimeQ], 58] (* _Giovanni Resta_, Jun 17 2016 *) %Y A109986 Cf. A000040, A000052, A109987, A109988. %K A109986 base,easy,nonn,word %O A109986 1,1 %A A109986 _Jonathan Vos Post_, Jul 07 2005 %E A109986 Corrected and extended by _Giovanni Resta_, Jun 17 2016