blue hell
Site Admin
Joined: Apr 03, 2004 Posts: 24079 Location: The Netherlands, Enschede
Audio files: 278
G2 patch files: 320
|
Posted: Thu Aug 08, 2019 2:30 pm Post subject:
|
|
|
Here are some values for s = 0 .. 9, r is the resulting ruler, d is not listed as I'm not computing that sequence.
Code: |
s = 0
a = '{ 1, 1, 2, 2, 3, 4, 4, 4, 5, 6, 6, 7, 8, 8, 8, 8, 9, 10, 10, 11, 12, 12, 12, 13, 14, 14, 15, 16, 16, 16, 16, 16, 17, 18, 18, 19, 20, 20, 20, 21, 22, 22, 23, 24, 24, 24, 24, 25, 26, 26, 27, 28, 28, 28, 29, 30, 30, 31, 32, 32, 32, 32, 32, 32, 33, 34, 34, 35, 36, 36, 36, 37, 38, 38, 39, 40, 40, 40, 40, 41, 42, 42, 43, 44, 44, 44, 45, 46, 46, 47, 48, 48, 48, 48, 48, 49, 50, 50, 51, 52, 52, 52, 53}'
p = '{ 1, 3, 4, 7, 8, 10, 11, 15, 16, 18, 19, 22, 23, 25, 26, 31, 32, 34, 35, 38, 39, 41, 42, 46, 47, 49, 50, 53, 54, 56, 57, 63, 64, 66, 67, 70, 71, 73, 74, 78, 79, 81, 82, 85, 86, 88, 89, 94, 95, 97, 98}'
r = '{ 2, 1, 3, 1, 2, 1, 4, 1, 2, 1, 3, 1, 2, 1, 5, 1, 2, 1, 3, 1, 2, 1, 4, 1, 2, 1, 3, 1, 2, 1, 6, 1, 2, 1, 3, 1, 2, 1, 4, 1, 2, 1, 3, 1, 2, 1, 5, 1, 2, 1, 3}'
|
Code: |
s = 1
a = '{ 1, 1, 1, 2, 2, 2, 3, 4, 4, 4, 4, 5, 6, 6, 7, 8, 8, 8, 8, 8, 9, 10, 10, 11, 12, 12, 12, 13, 14, 14, 15, 16, 16, 16, 16, 16, 16, 17, 18, 18, 19, 20, 20, 20, 21, 22, 22, 23, 24, 24, 24, 24, 25, 26, 26, 27, 28, 28, 28, 29, 30, 30, 31, 32, 32, 32, 32, 32, 32, 32, 33, 34, 34, 35, 36, 36, 36, 37, 38, 38, 39, 40, 40, 40, 40, 41, 42, 42, 43, 44, 44, 44, 45, 46, 46, 47, 48, 48, 48, 48, 48, 49}'
p = '{ 2, 5, 6, 10, 11, 13, 14, 19, 20, 22, 23, 26, 27, 29, 30, 36, 37, 39, 40, 43, 44, 46, 47, 51, 52, 54, 55, 58, 59, 61, 62, 69, 70, 72, 73, 76, 77, 79, 80, 84, 85, 87, 88, 91, 92, 94, 95}'
r = '{ 3, 1, 4, 1, 2, 1, 5, 1, 2, 1, 3, 1, 2, 1, 6, 1, 2, 1, 3, 1, 2, 1, 4, 1, 2, 1, 3, 1, 2, 1, 7, 1, 2, 1, 3, 1, 2, 1, 4, 1, 2, 1, 3, 1, 2, 1, 7}'
|
Code: |
s = 2
a = '{ 1, 1, 1, 1, 2, 2, 2, 2, 3, 4, 4, 4, 4, 4, 5, 6, 6, 7, 8, 8, 8, 8, 8, 8, 9, 10, 10, 11, 12, 12, 12, 13, 14, 14, 15, 16, 16, 16, 16, 16, 16, 16, 17, 18, 18, 19, 20, 20, 20, 21, 22, 22, 23, 24, 24, 24, 24, 25, 26, 26, 27, 28, 28, 28, 29, 30, 30, 31, 32, 32, 32, 32, 32, 32, 32, 32, 33, 34, 34, 35, 36, 36, 36, 37, 38, 38, 39, 40, 40, 40, 40, 41, 42, 42, 43, 44, 44, 44, 45, 46, 46, 47}'
p = '{ 3, 7, 8, 13, 14, 16, 17, 23, 24, 26, 27, 30, 31, 33, 34, 41, 42, 44, 45, 48, 49, 51, 52, 56, 57, 59, 60, 63, 64, 66, 67, 75, 76, 78, 79, 82, 83, 85, 86, 90, 91, 93, 94, 97, 98}'
r = '{ 4, 1, 5, 1, 2, 1, 6, 1, 2, 1, 3, 1, 2, 1, 7, 1, 2, 1, 3, 1, 2, 1, 4, 1, 2, 1, 3, 1, 2, 1, 8, 1, 2, 1, 3, 1, 2, 1, 4, 1, 2, 1, 3, 1, 5}'
|
Code: |
s = 3
a = '{ 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 3, 4, 4, 4, 4, 4, 4, 5, 6, 6, 7, 8, 8, 8, 8, 8, 8, 8, 9, 10, 10, 11, 12, 12, 12, 13, 14, 14, 15, 16, 16, 16, 16, 16, 16, 16, 16, 17, 18, 18, 19, 20, 20, 20, 21, 22, 22, 23, 24, 24, 24, 24, 25, 26, 26, 27, 28, 28, 28, 29, 30, 30, 31, 32, 32, 32, 32, 32, 32, 32, 32, 32, 33, 34, 34, 35, 36, 36, 36, 37, 38, 38, 39, 40, 40, 40, 40, 41, 42, 42, 43, 44}'
p = '{ 4, 9, 10, 16, 17, 19, 20, 27, 28, 30, 31, 34, 35, 37, 38, 46, 47, 49, 50, 53, 54, 56, 57, 61, 62, 64, 65, 68, 69, 71, 72, 81, 82, 84, 85, 88, 89, 91, 92, 96, 97, 99}'
r = '{ 5, 1, 6, 1, 2, 1, 7, 1, 2, 1, 3, 1, 2, 1, 8, 1, 2, 1, 3, 1, 2, 1, 4, 1, 2, 1, 3, 1, 2, 1, 9, 1, 2, 1, 3, 1, 2, 1, 4, 1, 2, 5}'
|
Code: |
s = 4
a = '{ 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 3, 4, 4, 4, 4, 4, 4, 4, 5, 6, 6, 7, 8, 8, 8, 8, 8, 8, 8, 8, 9, 10, 10, 11, 12, 12, 12, 13, 14, 14, 15, 16, 16, 16, 16, 16, 16, 16, 16, 16, 17, 18, 18, 19, 20, 20, 20, 21, 22, 22, 23, 24, 24, 24, 24, 25, 26, 26, 27, 28, 28, 28, 29, 30, 30, 31, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 33, 34, 34, 35, 36, 36, 36, 37, 38, 38, 39, 40, 40, 40, 40, 41}'
p = '{ 5, 11, 12, 19, 20, 22, 23, 31, 32, 34, 35, 38, 39, 41, 42, 51, 52, 54, 55, 58, 59, 61, 62, 66, 67, 69, 70, 73, 74, 76, 77, 87, 88, 90, 91, 94, 95, 97, 98}'
r = '{ 6, 1, 7, 1, 2, 1, 8, 1, 2, 1, 3, 1, 2, 1, 9, 1, 2, 1, 3, 1, 2, 1, 4, 1, 2, 1, 3, 1, 2, 1, 10, 1, 2, 1, 3, 1, 2, 1, 7}'
|
Code: |
s = 5
a = '{ 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 3, 4, 4, 4, 4, 4, 4, 4, 4, 5, 6, 6, 7, 8, 8, 8, 8, 8, 8, 8, 8, 8, 9, 10, 10, 11, 12, 12, 12, 13, 14, 14, 15, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 17, 18, 18, 19, 20, 20, 20, 21, 22, 22, 23, 24, 24, 24, 24, 25, 26, 26, 27, 28, 28, 28, 29, 30, 30, 31, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 33, 34, 34, 35, 36, 36, 36, 37}'
p = '{ 6, 13, 14, 22, 23, 25, 26, 35, 36, 38, 39, 42, 43, 45, 46, 56, 57, 59, 60, 63, 64, 66, 67, 71, 72, 74, 75, 78, 79, 81, 82, 93, 94, 96, 97}'
r = '{ 7, 1, 8, 1, 2, 1, 9, 1, 2, 1, 3, 1, 2, 1, 10, 1, 2, 1, 3, 1, 2, 1, 4, 1, 2, 1, 3, 1, 2, 1, 11, 1, 2, 1, 9}'
|
Code: |
s = 6
a = '{ 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 4, 4, 4, 4, 4, 4, 4, 4, 4, 5, 6, 6, 7, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 9, 10, 10, 11, 12, 12, 12, 13, 14, 14, 15, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 17, 18, 18, 19, 20, 20, 20, 21, 22, 22, 23, 24, 24, 24, 24, 25, 26, 26, 27, 28, 28, 28, 29, 30, 30, 31, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 33, 34}'
p = '{ 7, 15, 16, 25, 26, 28, 29, 39, 40, 42, 43, 46, 47, 49, 50, 61, 62, 64, 65, 68, 69, 71, 72, 76, 77, 79, 80, 83, 84, 86, 87, 99}'
r = '{ 8, 1, 9, 1, 2, 1, 10, 1, 2, 1, 3, 1, 2, 1, 11, 1, 2, 1, 3, 1, 2, 1, 4, 1, 2, 1, 3, 1, 2, 1, 12, 8}'
|
Code: |
s = 7
a = '{ 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 5, 6, 6, 7, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 9, 10, 10, 11, 12, 12, 12, 13, 14, 14, 15, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 17, 18, 18, 19, 20, 20, 20, 21, 22, 22, 23, 24, 24, 24, 24, 25, 26, 26, 27, 28, 28, 28, 29, 30, 30, 31, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 33}'
p = '{ 8, 17, 18, 28, 29, 31, 32, 43, 44, 46, 47, 50, 51, 53, 54, 66, 67, 69, 70, 73, 74, 76, 77, 81, 82, 84, 85, 88, 89, 91, 92}'
r = '{ 9, 1, 10, 1, 2, 1, 11, 1, 2, 1, 3, 1, 2, 1, 12, 1, 2, 1, 3, 1, 2, 1, 4, 1, 2, 1, 3, 1, 2, 1, 16}'
|
Code: |
s = 8
a = '{ 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 5, 6, 6, 7, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 9, 10, 10, 11, 12, 12, 12, 13, 14, 14, 15, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 17, 18, 18, 19, 20, 20, 20, 21, 22, 22, 23, 24, 24, 24, 24, 25, 26, 26, 27, 28, 28, 28, 29, 30, 30, 31, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 33}'
p = '{ 9, 19, 20, 31, 32, 34, 35, 47, 48, 50, 51, 54, 55, 57, 58, 71, 72, 74, 75, 78, 79, 81, 82, 86, 87, 89, 90, 93, 94, 96, 97}'
r = '{ 10, 1, 11, 1, 2, 1, 12, 1, 2, 1, 3, 1, 2, 1, 13, 1, 2, 1, 3, 1, 2, 1, 4, 1, 2, 1, 3, 1, 2, 1, 12}'
|
Code: |
s = 9
a = '{ 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 5, 6, 6, 7, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 9, 10, 10, 11, 12, 12, 12, 13, 14, 14, 15, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 17, 18, 18, 19, 20, 20, 20, 21, 22, 22, 23, 24, 24, 24, 24, 25, 26, 26, 27, 28, 28, 28, 29, 30, 30, 31}'
p = '{ 10, 21, 22, 34, 35, 37, 38, 51, 52, 54, 55, 58, 59, 61, 62, 76, 77, 79, 80, 83, 84, 86, 87, 91, 92, 94, 95, 98, 99}'
r = '{ 11, 1, 12, 1, 2, 1, 13, 1, 2, 1, 3, 1, 2, 1, 14, 1, 2, 1, 3, 1, 2, 1, 4, 1, 2, 1, 3, 1, 11}'
|
And some code snippets for it:
Code: |
TSieveMetaFibonacci = class( TSievePreExtendable)
private
FOrder : Integer;
FAN : TSieveSequence;
private
procedure AddAN( aValue: Integer);
protected
function CreateNextElement: Integer; override;
procedure Initialize; override;
public
constructor Create( anOrder: Integer);
function Dump: string; override;
function DumpAN: string;
public
property Order: Integer read FOrder;
end;
procedure TSieveMetaFibonacci.AddAN( aValue: Integer);
begin
SetLength( FAN, Length( FAN) + 1);
FAN[ Length( FAN) - 1] := aValue;
end;
function TSieveMetaFibonacci.CreateNextElement: Integer; // override;
var
Found : Boolean;
Delta : Integer;
begin
Found := False;
Result := 1;
while not Found
do begin
AddAN( FAN[ Length( FAN) - Order - FAN[ Length( FAN) - 1]] + FAN[ Length( FAN) - Order - 1 - FAN[ Length( FAN) - 2]]); // Next a[ n]
Delta := FAN[ Length( FAN) - 1] - FAN[ Length( FAN) - 2]; // Next d[ n]
if Delta = 1
then begin
Result := Length( FAN) - 2; // Next element for p[ n]
Found := True;
end;
end;
end;
procedure TSieveMetaFibonacci.Initialize; // override;
var
i : Integer;
begin
for i := 0 to Order + 1
do AddAN( 1);
FLastElement := 0;
SetLength( FData, Order + 1);
end;
|
_________________ Jan
also .. could someone please turn down the thermostat a bit.
|
|