|
%I #14 Mar 08 2020 13:39:25
%S 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,
%T 65,69,96,97,100,102,104,138,140,142,145,146,173,177,178,183,185,194,
%U 195,196,208,209,289,290,291,300,302,307,312,416,421,426,428,437,438
%N Numbers that are squarefree words in ternary representation.
%C A088950(a(n)) = 0.
%H Rémy Sigrist, <a href="/A088952/b088952.txt">Table of n, a(n) for n = 1..10000</a>
%H Rémy Sigrist, <a href="/A088952/a088952.gp.txt">PARI program for A088952</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/SquarefreeWord.html">Squarefree Word</a>
%t Select[Range[0, 500], MatchQ[IntegerDigits[#, 3], Except[{___, x__, x__, ___}]] &] (* _Vladimir Reshetnikov_, May 17 2016 *)
%o (PARI) See Links section.
%Y Cf. A007089, A088953.
%K nonn,base
%O 1,3
%A _Reinhard Zumkeller_, Oct 25 2003
|
