OFFSET
1,3
COMMENTS
LINKS
FORMULA
EXAMPLE
The first rows are:
1
1, 3, 3
1, 5, 5, 3, 7, 7, 3, 5, 5
PROG
(PARI) M = [[1, -2, 2; 2, -1, 2; 2, -2, 3], [1, 2, 2; 2, 1, 2; 2, 2, 3], [-1, 2, 2; -2, 1, 2; -2, 2, 3]];
T(n, k) = my (t=[3; 4; 5], d=digits(3^(n-1)+k-1, 3)); for (i=2, #d, t = M[d[i]+1] * t); return (sqrtint(t[3, 1] - t[2, 1]))
CROSSREFS
KEYWORD
nonn,tabf
AUTHOR
Rémy Sigrist, Nov 22 2018
STATUS
approved