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 A032606 #19 Nov 16 2019 10:30:18
%S A032606 3,7,13,21,37,49,69,75,99,133,141,189,205,219,237,283,319,327,367,399,
%T A032606 415,463,487,529,583,615,621,645,655,693,801,831,885,897,979,991,1023,
%U A032606 1087,1105,1167,1203,1219,1285,1303,1339,1365,1471,1563
%N A032606 Lucky numbers indexed by prime numbers.
%H A032606 Amiram Eldar, <a href="/A032606/b032606.txt">Table of n, a(n) for n = 1..10000</a>
%F A032606 a(n) = A000959(A000040(n)). - _Amiram Eldar_, Nov 16 2019
%t A032606 lst = Range[1, 2000, 2]; i = 2; While[ i <= (len = Length@lst) && (k = lst[[i]]) <= len, lst = Drop[lst, {k, len, k}]; i++ ]; lst[[Prime@ Range@51]] (* _Robert G. Wilson v_, May 12 2006 *)
%o A032606 (Perl) use ntheory ":all"; say "$_ ",nth_lucky(nth_prime($_)) for 1..20'; # _Dana Jacobsen_, Dec 21 2018
%o A032606 (Perl) use ntheory ":all"; my $ln=lucky_numbers(1e4); unshift @$ln,0; my @a032606 = vecextract($ln,primes($ln->[-1])); # _Dana Jacobsen_, Dec 21 2018
%Y A032606 Cf. A000040, A000959, A032605.
%K A032606 nonn
%O A032606 1,1
%A A032606 _Patrick De Geest_, May 15 1998