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,2

Links

Table of n, a(n) for n=1..17.

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

Cf. A121805, A367343, A367344, A367356.

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

Sequence in context: A263580 A110134 A014156 * A367621 A114073 A286242

Adjacent sequences: A367352 A367353 A367354 * A367356 A367357 A367358

Keyword

nonn,base,fini,full

Author

N. J. A. Sloane, Nov 18 2023

Status

approved