A292081 Let b(k) be A056240(k); this sequence lists numbers b(2n) such that for some m > n, b(2m) < b(2n).
35, 65, 95, 115, 161, 155, 217, 185, 215, 235, 329, 265, 371, 305, 427, 335, 365, 511, 395, 415, 581, 445, 623, 1246, 485, 515, 545, 565, 791, 1417, 1243, 1469, 2071, 635, 655, 917, 695, 973, 1507, 1529, 755, 1057, 785, 1099, 815, 835, 1169, 865, 1211, 905, 1267
Offset: 1
Keywords
Examples
b(12) = 35 is included since b(14) = 33 < 35. b(28) = 115 is in since b(32) = 87, b(34) = 93, and b(40) = 111 are all less than 115.
Links
- Ivan N. Ianakiev, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
a056240=Cases[Import["https://oeis.org/A056240/b056240.txt","Table"],{,}][[All,2]]; even=Take[a056240,{1,Length[a056240],2}];leven=Length[even]; a292081= Select[even,#>Min[Part[even,1;;Position[even,#][[1,1]]]]&>Min[Part[even,Position[even,#][[1,1]];;leven]]&] (* Ivan N. Ianakiev, Nov 02 2023 *)
Comments