OFFSET
1
COMMENTS
First row : since 1/1 has all zeros after radix. T(1, k) = 0 for k >= 1.
First column: since 1/phi > 1/n for n>=2; T(n, 1) = 0 for all n >= 1.
LINKS
EXAMPLE
Array begins:
k=1 2 3 4 5 6 7 8
n=1: 0, 0, 0, 0, 0, 0, 0, 0,
n=2: 0, 1, 0, 0, 1, 0, 0, 1,
n=3: 0, 0, 1, 0, 1, 0, 0, 0,
n=4: 0, 0, 1, 0, 0, 0, 0, 0,
n=5: 0, 0, 0, 1, 0, 0, 1, 0,
n=6: 0, 0, 0, 1, 0, 0, 0, 0,
n=7: 0, 0, 0, 0, 1, 0, 1, 0,
n=8: 0, 0, 0, 0, 1, 0, 1, 0,
Row n=6 is 1/6 = .0001000010101001... in base phi.
PROG
(PARI)
phi = quadgen(5);
T(n, k) = {
if (n == 1, 0,
my (t = 1/n, d = 0);
for (i=1, k,
t = t * phi;
t -= (d = t >= 1));
d)};
CROSSREFS
KEYWORD
AUTHOR
Chittaranjan Pardeshi, Jun 12 2022
STATUS
approved