A091265 Take sequence of prime numbers (A000040) and reverse successive subsequences of lengths 1,2,3,4,...
2, 5, 3, 13, 11, 7, 29, 23, 19, 17, 47, 43, 41, 37, 31, 73, 71, 67, 61, 59, 53, 107, 103, 101, 97, 89, 83, 79, 151, 149, 139, 137, 131, 127, 113, 109, 197, 193, 191, 181, 179, 173, 167, 163, 157, 257, 251, 241, 239, 233, 229, 227, 223, 211, 199, 317, 313, 311, 307
Offset: 1
Links
- Robert Israel, Table of n, a(n) for n = 1..10000
Programs
-
Maple
S:= ListTools:-PartialSums([$1..20]): P:= [seq(ithprime(i),i=1..S[-1])]: map(op, [[P[1]],seq(ListTools:-Reverse(P[S[i]+1..S[i+1]]),i=1..nops(S)-1)]); # Robert Israel, Sep 04 2017
Formula
Extensions
Offset changed from 0 to 1 by M. F. Hasler, Aug 24 2014