|
| |
|
|
A022418
|
|
Kim-sums: "Kimberling sums" K_n + K_7.
|
|
1
|
|
|
|
6, 18, 21, 23, 26, 29, 31, 34, 36, 39, 42, 44, 47, 50, 52, 55, 57, 60, 63, 65, 68, 70, 73, 76, 78, 81, 84, 86, 89, 91, 94, 97, 99, 102, 105, 107, 110, 112, 115, 118, 120, 123, 125, 128, 131, 133, 136, 139, 141, 144, 146, 149, 152, 154, 157, 159, 162, 165, 167, 170
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
0,1
|
|
|
REFERENCES
|
Posting to math-fun mailing list Jan 10 1997.
|
|
|
LINKS
|
Table of n, a(n) for n=0..59.
|
|
|
MAPLE
|
Ki := proc(n, i)
option remember;
local phi ;
phi := (1+sqrt(5))/2 ;
if i= 0 then
n;
elif i=1 then
floor((n+1)*phi) ;
else
procname(n, i-1)+procname(n, i-2) ;
end if;
end proc:
Kisum := proc(n, m)
local ks, a, i;
ks := [seq( Ki(n, i)+Ki(m, i), i=0..5)] ;
for i from 0 to 2 do
for a from 0 do
if Ki(a, 0) = ks[i+1] and Ki(a, 1) = ks[i+2] then
return a;
end if;
if Ki(a, 0) > ks[i+1] then
break;
end if;
end do:
end do:
end proc:
A022418 := proc(n)
if n = 0 then
6;
else
Kisum(n-1, 6) ;
end if;
end proc:
seq(A022418(n), n=0..80) ; # R. J. Mathar, Sep 03 2016
|
|
|
CROSSREFS
|
Sequence in context: A077663 A025163 A186889 * A350848 A358748 A081318
Adjacent sequences: A022415 A022416 A022417 * A022419 A022420 A022421
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
Marc LeBrun
|
|
|
STATUS
|
approved
|
| |
|
|
