A344891 Divide the primes into subsets of lengths given by successive primes, then reverse the order of terms in each subset.
3, 2, 11, 7, 5, 29, 23, 19, 17, 13, 59, 53, 47, 43, 41, 37, 31, 107, 103, 101, 97, 89, 83, 79, 73, 71, 67, 61, 179, 173, 167, 163, 157, 151, 149, 139, 137, 131, 127, 113, 109, 271, 269, 263, 257, 251, 241, 239, 233, 229, 227, 223, 211, 199, 197, 193, 191, 181
Offset: 1
Examples
Written as an irregular triangle in which row lengths give A000040 the sequence begins: 3, 2; 11, 7, 5; 29, 23, 19, 17, 13; 59, 53, 47, 43, 41, 37, 31; 107, 103, 101, 97, 89, 83, 79, 73, 71, 67, 61; 179, 173, 167, 163, 157, 151, 149, 139, 137, 131, 127, 113, 109; ...
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Crossrefs
Programs
-
Mathematica
Module[{nn=10,p},p=Total[Prime[Range[nn]]];Flatten[Reverse/@TakeList[ Prime[ Range[ p]],Prime[Range[nn]]]]] (* Harvey P. Dale, Sep 14 2022 *)
Comments