|
|
A367355
|
|
Comma sequence, analogous to A121805, starting at 1, but the calculations are done in base 3.
|
|
13
|
|
|
1, 5, 12, 13, 17, 25, 29, 36, 37, 41, 48, 49, 53, 61, 66, 68, 76
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
MAPLE
|
# Comma Successor in Maple in base "bas", from N. J. A. Sloane, Dec 06 2023
bas := 3;
Ldigit:=proc(n) local v; v:=convert(n, base, bas); v[-1]; end; # Returns leading digit
# Return comma-successor to a or -1 if no successor exists
commsucc := proc(a) local f, i, d;
f := (a mod bas);
d:=bas*f;
for i from 1 to bas-1 do
d := d+1;
if Ldigit(a+d) = i then return(a+d); fi;
od:
return(-1);
end;
a:=[1]; s:=1; for n from 1 to 16 do s:=commsucc(s); a:=[op(a), s]; od: a;
|
|
CROSSREFS
|
A367605 and A367605 give the length and last term for the analogous sequence in base b.
|
|
KEYWORD
|
nonn,base,fini,full
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|