A031882 Repdigital lucky numbers.
1, 3, 7, 9, 33, 99, 111, 777, 9999, 33333, 55555, 111111, 777777, 7777777, 55555555
Offset: 1
Programs
-
Mathematica
lst=Range[1, 10^7, 2]; i = 2; While[lst[[i]]<=Length[lst], del=Partition[Range[lst[[i]], Length[lst], lst[[i]]], 1]; lst=Delete[lst, del]; i++ ]; lst=Select[lst, (Length[Union[IntegerDigits[ # ]]]==1)&] (* Robert G. Wilson v, May 12 2006 *)
Extensions
Two more terms from Vit Planocka (planocka(AT)mistral.cz), Feb 01 2003
a(15) from Robert G. Wilson v, May 12 2006
Comments