login
Omit digits 0, 1, 8 from n.
0

%I #11 Oct 24 2016 08:54:10

%S 2,3,4,5,6,7,9,2,3,4,5,6,7,9,2,2,22,23,24,25,26,27,2,29,3,3,32,33,34,

%T 35,36,37,3,39,4,4,42,43,44,45,46,47,4,49,5,5,52,53,54,55,56,57,5,59,

%U 6,6,62,63,64,65,66,67,6,69,7,7,72,73,74,75,76,77,7,79,2,3,4,5,6,7,9,9,9

%N Omit digits 0, 1, 8 from n.

%D F. Iacobescu, Smarandache Partition Type And Other Sequences, Bulletin of Pure and Applied Sciences, Vol. 16E, No. 2, 1997, pp. 237-240

%D F. Smarandache, Properties of numbers, ASU Special Collections, 1973.

%t DeleteCases[Table[FromDigits[(IntegerDigits[n]/.Thread[{0,1,8}-> Nothing])],{n,100}],0](* _Harvey P. Dale_, Oct 24 2016 *)

%K nonn,base,easy

%O 1,1

%A J. Castillo (arp(AT)cia-g.com) [Broken email address?]

%E Corrected and extended by Larry Reeves (larryr(AT)acm.org), Mar 27 2000