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

Author

Alford Arnold, Aug 04 2004

Keywords

• easy
• nonn

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

Examples

			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 ...
		

Crossrefs

Cf. A055457, A086343.

Programs

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 *)

Extensions

More terms from Emeric Deutsch, Dec 09 2004