cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A199996 Composite numbers whose multiplicative persistence is 6.

This page as a plain text file.
%I A199996 #9 Aug 03 2014 14:01:36
%S A199996 6788,6878,6887,7688,7868,7886,8678,8687,8768,8786,8876,16788,16878,
%T A199996 16887,17688,17868,17886,18678,18687,18768,18786,18867,18876,23788,
%U A199996 23878,24678,24687,24768,24786,24867,24876,26478,26487,26748,26784,26847,26874,27388
%N A199996 Composite numbers whose multiplicative persistence is 6.
%C A199996 Complement of A046506 with respect to A046515.
%e A199996 6788 -> [ 2688 ][ 768 ][ 336 ][ 54 ][ 20 ][ 0 ] -> one digit in six steps.
%t A199996 persistence[n_] := Module[{cnt = 0, k = n}, While[k > 9, cnt++; k = Times @@ IntegerDigits[k]]; cnt]; Select[Range[30000], ! PrimeQ[#] && persistence[#] == 6 &] (* _T. D. Noe_, Nov 23 2011 *)
%Y A199996 Cf. A046506 (primes whose multiplicative persistence is 6).
%K A199996 nonn,base
%O A199996 1,1
%A A199996 _Jaroslav Krizek_, Nov 13 2011