A088952 Numbers that are squarefree words in ternary representation.

0, 1, 2, 3, 5, 6, 7, 10, 11, 15, 16, 19, 20, 21, 23, 32, 33, 34, 46, 47, 48, 57, 59, 61, 64, 65, 69, 96, 97, 100, 102, 104, 138, 140, 142, 145, 146, 173, 177, 178, 183, 185, 194, 195, 196, 208, 209, 289, 290, 291, 300, 302, 307, 312, 416, 421, 426, 428, 437, 438

Offset: 1

Author

Reinhard Zumkeller, Oct 25 2003

Keywords

• nonn
• base

Comments

A088950(a(n)) = 0.

Links

• Rémy Sigrist, Table of n, a(n) for n = 1..10000
• Rémy Sigrist, PARI program for A088952
• Eric Weisstein's World of Mathematics, Squarefree Word

Crossrefs

Cf. A007089, A088953.

Programs

Mathematica

Select[Range[0, 500], MatchQ[IntegerDigits[#, 3], Except[{_, x__, x__, _}]] &] (* Vladimir Reshetnikov, May 17 2016 *)

PARI

See Links section.