OFFSET
1,1
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..20000
MAPLE
T:= proc(n) T(n):= (<<0|1|0>, <0|0|1>, <1|1|1>>^n)[2, 3] end:
b:= proc(n) option remember; local j;
if n=0 then 0
else for j from 2 while T(j+1)<=n do od;
b(n-T(j))+10^(j-2)
fi
end:
a:= n-> b(ithprime(n)):
seq(a(n), n=1..40); # Alois P. Heinz, Jun 13 2018
CROSSREFS
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Jun 12 2018
EXTENSIONS
More terms from Alois P. Heinz, Jun 13 2018
STATUS
approved