A367355 Comma sequence, analogous to A121805, starting at 1, but the calculations are done in base 3.

1, 5, 12, 13, 17, 25, 29, 36, 37, 41, 48, 49, 53, 61, 66, 68, 76

Offset: 1

Author

N. J. A. Sloane, Nov 18 2023

Keywords

• nonn
• base
• fini
• full

Crossrefs

Cf. A121805, A367343, A367344, A367356.

A367605 and A367605 give the length and last term for the analogous sequence in base b.

Programs

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;