|
|
A373211
|
|
Signature sequence of Pi^2.
|
|
0
|
|
|
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 1, 11, 2, 12, 3, 13, 4, 14, 5, 15, 6, 16, 7, 17, 8, 18, 9, 19, 10, 20, 1, 11, 21, 2, 12, 22, 3, 13, 23, 4, 14, 24, 5, 15, 25, 6, 16, 26, 7, 17, 27, 8, 18, 28, 9, 19, 29, 10, 20, 30, 1, 11, 21, 31, 2, 12, 22, 32, 3, 13, 23, 33, 4, 14, 24, 34, 5, 15, 25, 35, 6, 16, 26, 36, 7, 17, 27, 37
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
Signature sequence of x = A002388: defined by sorting the values of i+j*x, i,j>=1, and collecting the list of the i in that order.
|
|
LINKS
|
|
|
MAPLE
|
SIGSEQsort := proc(l1::list, l2::list)
if op(1, l1) < op(1, l2) then
return true ;
else
return false ;
end if
end proc:
SIGSEQ := proc(x, vmax)
local TBsrtd, i, j ;
TBsrtd := [] ;
for i from 1 do
if i > vmax then
break ;
end if;
for j from 1 do
if evalf(i+j*x) > vmax then
break ;
end if;
TBsrtd := [op(TBsrtd), [evalf(i+j*x), i]] ;
end do:
end do:
sort(TBsrtd, SIGSEQsort) ;
[seq(op(2, v), v=%)] ;
end proc:
Digits := 100 ;
SIGSEQ(Pi^2, 150.0) ;
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|