OFFSET
0,3
COMMENTS
LINKS
PROG
(R)
nmax <- 31 # by choice
a <- 1:3
for(n in 1:nmax) for(k in 0:3){
if(n %% 2 == 0) a[4*n + k] <- 2*a[2*n + (k == 2 | k == 3)] + (k == 0 | k == 2)
else a[4*n + k] <- 2*a[2*n + (k == 2 | k == 3)] + (k == 1 | k == 3)
}
(a <- c(0, a))
# Yosu Yurramendi, Oct 25 2020
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Aug 15 2010
STATUS
approved