

A026225


a(n) = (1/3)*(s(n+1)  1), where s = A026224.


10



1, 3, 4, 7, 9, 10, 12, 13, 16, 19, 21, 22, 25, 27, 28, 30, 31, 34, 36, 37, 39, 40, 43, 46, 48, 49, 52, 55, 57, 58, 61, 63, 64, 66, 67, 70, 73, 75, 76, 79, 81, 82, 84, 85, 88, 90, 91, 93, 94, 97, 100, 102, 103, 106, 108, 109, 111, 112, 115
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,2


COMMENTS

Conjectures: these are numbers of the form (3*i+1)*3^j; see A182828, and they comprise the complement of A026179, except for the initial 1 in A026179.


LINKS

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


MATHEMATICA

a[b_] := Table[Mod[n/b^IntegerExponent[n, b], b], {n, 1, 160}]
p[b_, d_] := Flatten[Position[a[b], d]]
p[3, 1] (* A026225 *)
p[3, 2] (* A026179 without initial 1 *)
(* Clark Kimberling, Oct 19 2016 *)


CROSSREFS

Sequence in context: A088958 A300061 A300789 * A026140 A233010 A263488
Adjacent sequences: A026222 A026223 A026224 * A026226 A026227 A026228


KEYWORD

nonn


AUTHOR

Clark Kimberling


STATUS

approved



