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 A091265 #11 Jul 05 2022 11:17:27 %S A091265 2,5,3,13,11,7,29,23,19,17,47,43,41,37,31,73,71,67,61,59,53,107,103, %T A091265 101,97,89,83,79,151,149,139,137,131,127,113,109,197,193,191,181,179, %U A091265 173,167,163,157,257,251,241,239,233,229,227,223,211,199,317,313,311,307 %N A091265 Take sequence of prime numbers (A000040) and reverse successive subsequences of lengths 1,2,3,4,... %H A091265 Robert Israel, <a href="/A091265/b091265.txt">Table of n, a(n) for n = 1..10000</a> %F A091265 a(n) = A000040(A038722(n)). - _M. F. Hasler_, Aug 24 2014 %p A091265 S:= ListTools:-PartialSums([$1..20]): %p A091265 P:= [seq(ithprime(i),i=1..S[-1])]: %p A091265 map(op, [[P[1]],seq(ListTools:-Reverse(P[S[i]+1..S[i+1]]),i=1..nops(S)-1)]); # _Robert Israel_, Sep 04 2017 %Y A091265 Cf. A000040, A038722. %K A091265 easy,nonn %O A091265 1,1 %A A091265 _Felix Tubiana_, Feb 23 2004 %E A091265 Offset changed from 0 to 1 by _M. F. Hasler_, Aug 24 2014