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 A099180 #16 Jan 25 2021 10:50:25 %S A099180 31,41,43,53,61,71,73,83,97,211,241,251,271,281,311,331,401,421,431, %T A099180 433,443,461,463,491,503,521,523,541,563,571,593,601,613,631,641,643, %U A099180 653,661,673,683,691,701,733,743,751,761,773,811,821,823,827,853,857,863 %N A099180 Primes p which are greater than p reversed. %t A099180 Select[ Prime[ Range[ 150]], # > FromDigits[ Reverse[ IntegerDigits[ # ]]] &] %o A099180 (PARI) A099180(n)=type(A99180)=="t_VEC" || A99180=[31]; #A99180>=n && return(A99180[n]); my(p=A99180[#A99180]); A99180=concat(A99180, vector(n-#A99180, k, until(A004086(p=nextprime(p+1))<p,);p));p \\ _M. F. Hasler_, Mar 15 2012 %o A099180 (PARI) A99180=select( p->A004086(p)<p, primes(1000)) /* reverse arguments for GP version < 2.4.3 */ \\ _M. F. Hasler_, Mar 15 2012 %Y A099180 Cf. A209063, A202286. %K A099180 base,nonn %O A099180 1,1 %A A099180 _Robert G. Wilson v_, Oct 01 2004