A067438 Number of distinct prime factors in floor((4/3)^n).

0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 2, 2, 2, 2, 2, 2, 3, 4, 3, 2, 3, 2, 3, 2, 2, 3, 2, 2, 4, 2, 3, 3, 2, 3, 1, 2, 2, 3, 1, 2, 2, 3, 2, 3, 3, 3, 3, 4, 3, 2, 2, 4, 3, 3, 3, 1, 4, 4, 3, 2, 2, 5, 6, 6, 5, 2, 4, 2, 2, 2, 3, 4, 3, 2, 4, 5, 5, 5, 4, 2, 3, 4, 4, 3, 5, 5, 4, 3, 4, 3, 3, 3, 1, 3, 3, 3, 4, 3, 3, 4, 2, 3

Offset

1,13

Links

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

Mathematica

PrimeNu/@Floor[(4/3)^Range[110]] (* Harvey P. Dale, Nov 02 2011 *)

Crossrefs

Sequence in context: A085398 A252503 A270003 * A178250 A174550 A119704

Adjacent sequences: A067435 A067436 A067437 * A067439 A067440 A067441

Keyword

easy,nonn

Author

Benoit Cloitre, Feb 23 2002

Status

approved