Xenharmonic Wiki

Module:Sequence: Difference between revisions

← Older edit
Plumtree (talk | contribs)
autopatrolled, emailconfirmed
1,976 edits
Square superparticulars until prime limit 89 added
ArrowHead294 (talk | contribs)
15,213 edits
mNo edit summary
 
(13 intermediate revisions by 3 users not shown)
Line 1: Line 1:
local p = {}
local p = {}
local getArgs = require('Module:Arguments').getArgs


function p.contains(seq, n)
function p.contains(seq, n)
Line 12: Line 14:
return false
return false
end
end
function p.get_term(frame)
local args = getArgs(frame)
return p._get_term(args[1], tonumber (args[2]))
end
function p._get_term(seq, n)
local sequences = {
["odd_limit_diff"] = p.odd_limit_diff,
["zeta_peak"] = p.zeta_peak,
["zeta_integral"] = p.zeta_integral,
["zeta_gap"] = p.zeta_gap,
["square_superparticulars"] = p.square_superparticulars
}
return sequences[seq][n]
end
-- OEIS A072451
-- Number of odd terms in the reduced residue system of 2*n-1
-- Corresponds to the number of new interval pairs between the (2n-3)-odd-limit
-- and the (2n-1)-odd-limit, assuming the 1-odd-limit has 1 "pair" of intervals.
p.odd_limit_diff = {
1, 1, 2, 3, 3, 5, 6, 4, 8, 9,
6, 11, 10, 9, 14, 15, 10, 12, 18, 12,
20, 21, 12, 23, 21, 16, 26, 20, 18, 29,
30, 18, 24, 33, 22, 35, 36, 20, 30, 39,
27, 41, 32, 28, 44, 36, 30, 36, 48, 30,
50, 51, 24, 53, 54, 36, 56, 44, 36, 48,
55, 40, 50, 63, 42, 65, 54, 36, 68, 69,
46, 60, 56
}


-- OEIS A117536
-- OEIS A117536
p.zeta_peak = {
p.zeta_peak = {
0, 1, 2, 3, 4,
0, 1, 2, 3, 4, 5, 7,
5, 7, 10, 12, 19,
10, 12, 19, 22, 27, 31, 41, 53, 72, 99,
22, 27, 31, 41, 53,
118, 130, 152, 171, 217, 224, 270, 342, 422, 441, 494, 742, 764, 935, 954,
72, 99, 118, 130, 152,
1012, 1106, 1178, 1236, 1395, 1448, 1578, 2460, 2684, 3395, 5585, 6079, 7033, 8269, 8539,
171, 217, 224, 270, 342,
11664, 14348, 16808, 28742, 34691,
422, 441, 494, 742, 764,
935, 954, 1012, 1106, 1178,
1236, 1395, 1448, 1578, 2460,
2684, 3395, 5585, 6079, 7033,
8269, 8539, 11664, 14348, 16808,
28742, 34691,
-- unconfirmed data from [[The Riemann zeta function and tuning #Zeta EDO lists]]
-- unconfirmed data from [[The Riemann zeta function and tuning #Zeta EDO lists]]
36269, 57578, 58973, 95524, 102557,
36269, 57578, 58973, 95524,
112985, 148418, 212147, 241200
102557, 112985, 148418, 212147, 241200
}
 
p.zeta_peak_integer = {
0, 1, 2, 3, 5, 7,
10, 12, 19, 22, 31, 41, 53, 87,
118, 130, 171, 224, 270, 311, 472, 494, 742,
1065, 1106, 1395, 1578, 2460, 2684, 3566, 4231, 4973, 5585, 8269, 8539,
14124, 14348, 16808, 28742, 30631, 34691, 36269, 57578, 58973
}
}


-- OEIS A117538
-- OEIS A117538
p.zeta_integral = {
p.zeta_integral = {
2, 5, 7, 12, 19,
2, 5, 7,
31, 41, 53, 72, 130,
12, 19, 31, 41, 53, 72,
171, 224, 270, 764, 954,
130, 171, 224, 270, 764, 954,
1178, 1395, 1578, 2684, 3395,
1178, 1395, 1578, 2684, 3395, 7033, 8269, 8539,
7033, 8269, 8539, 14348, 16808,
14348, 16808, 36269, 58973
36269, 58973
}
}


-- OEIS A117537
-- OEIS A117537
p.zeta_gap = {
p.zeta_gap = {
2, 3, 5, 7, 12,
2, 3, 5, 7,
19, 31, 46, 53, 72,
12, 19, 31, 46, 53, 72,
270, 311, 954, 1178, 1308,
270, 311, 954,
1395, 1578, 3395, 4190,
1178, 1308, 1395, 1578, 3395, 4190,
-- unconfirmed data from [[The Riemann zeta function and tuning #Zeta EDO lists]]
-- unconfirmed data from [[The Riemann zeta function and tuning#Zeta EDO lists]]
8539, 14348, 58973, 95524
8539,
14348, 58973, 95524
}
}


Line 54: Line 89:
-- counted by OEIS A117582
-- counted by OEIS A117582
-- see https://github.com/lucasaugustus/oeis/blob/main/stormer.py
-- see https://github.com/lucasaugustus/oeis/blob/main/stormer.py
p.square_superpartuculars = {
p.square_superparticulars = {
[2] = {},
[2] = {},
[3] = {2, 3},
[3] = {2, 3},
Line 194: Line 229:
1270565, 1313641, 3999216, 6167344,
1270565, 1313641, 3999216, 6167344,
407498959
407498959
},
-- using abc conjecture c < 100 * rad(abc)^2; may be incomplete
[97] = {
96, 97, 98,
195, 290, 291, 484, 485, 581, 582, 583, 775, 776, 874, 969,
1066, 1067, 1456, 1551, 2133, 2134, 2135, 2232, 2813, 2911, 3008, 3783, 3976, 3977, 4558, 4559, 5625, 5916, 6498, 6499, 6888, 7371, 7565, 7566, 7567, 7955, 8051,
10864, 13775, 13870, 13871, 14161, 14840, 16684, 17459, 25025, 28519, 37926, 40256, 46656, 57133, 62952, 88560,
101269, 103500, 113296, 117078, 126294, 129108, 139195, 224847, 313600, 329121, 431649, 442224, 447849, 908600,
1055361, 1231803, 1555008, 1584010, 7496644,
43184401
},
-- using abc conjecture c < 100 * rad(abc)^2; may be incomplete
[101] = {
100, 101, 201, 202, 203, 304, 403, 404, 405, 505, 506,
1312, 1313, 1616, 1716, 2323, 2324, 2625, 2626, 2627, 2727, 3233, 3535, 4544, 5251, 5453, 6060, 6161, 6364, 6665, 6969, 7372, 7474, 7475, 8281, 8585, 8788, 8990, 9797,
10200, 12121, 12221, 12321, 12727, 13432, 16059, 17169, 17575, 20502, 21412, 21413, 21715, 44239, 61104, 61711, 75951, 80801, 83425, 84133, 84134, 89889, 92415, 94536,
100595, 116654, 117363, 133825, 135642, 153217, 161601, 162811, 197456, 255529, 376831, 397536, 485001, 614384,
2383095, 3444301, 5964959, 6530356, 9814169,
14455826,
116026274
},
},
}
}


return p
return p
Retrieved from "https://en.xen.wiki/w/Module:Sequence"