|
|
|
|
0, 5, 6, 47, 48, 53, 54, 59, 60, 425, 426, 431, 432, 437, 438, 479, 480, 485, 486, 491, 492, 533, 534, 539, 540, 545, 546, 3827, 3828, 3833, 3834, 3839, 3840, 3881, 3882, 3887, 3888, 3893, 3894, 3935, 3936, 3941, 3942, 3947, 3948, 4313, 4314, 4319
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
FORMULA
|
a(n) = 3*A163480(n) + (2 if n odd).
(End)
|
|
PROG
|
(PARI) a(n) = my(v=digits(n, 3), s=Mod(0, 2)); for(i=1, #v, s+=v[i]; v[i]=3*v[i]+if(s, 2)); fromdigits(v, 9); \\ Kevin Ryde, Oct 06 2020
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|