A367355 - OEIS

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

(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