A096346 Complement of A004128.

3, 7, 11, 12, 16, 20, 24, 25, 29, 33, 37, 38, 39, 43, 47, 51, 52, 56, 60, 64, 65, 69, 73, 77, 78, 79, 83, 87, 91, 92, 96, 100, 104, 105, 109, 113, 117, 118, 119, 120, 124, 128, 132, 133, 137, 141, 145, 146, 150, 154, 158, 159, 160, 164, 168, 172, 173, 177, 181, 185

Offset

0,1

Comments

Shape sequence for A055938 is A001511; shape sequence for a(n) is A051064; A001511, A051064 and A055457 are p-adic valuations for p = 2, 3 & 5.

Also n! never ends in this many 0's in bases 3 and 6. - Carl R. White, Jan 21 2008

Links

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

Example

A004128 begins 0 1 2 4 5 6 8 9 10 13 14 15 ... therefore a(n) begins 3 7 11 12 16 20 24 25 ...

Maple

b:=n->sum(floor(3*n/3^k), k=1..n): {seq(n, n=0..222)} minus {seq(b(n), n=0..150)}; # Emeric Deutsch, Dec 09 2004

Mathematica

A004128 = Log[3, CoefficientList[ Series[ 1/(1+x)^(1/3), {x, 0, 200}], x] // Denominator]; A096346 = Complement[ Range[A004128 // Last], A004128] (* Jean-François Alcover, Feb 19 2015 *)

Crossrefs

Cf. A055457, A086343.

Sequence in context: A135137 A263737 A055050 * A104534 A062823 A031466

Adjacent sequences: A096343 A096344 A096345 * A096347 A096348 A096349

Keyword

easy,nonn

Author

Alford Arnold, Aug 04 2004

Extensions

More terms from Emeric Deutsch, Dec 09 2004

Status

approved