|
%I #32 Jul 30 2019 05:31:56
%S 1,3,7,9,33,99,111,777,9999,33333,55555,111111,777777,7777777,55555555
%N Repdigital lucky numbers.
%C a(16) > 10^8. - _Robert G. Wilson v_, May 12 2006
%C a(16) > 10^9. - _Luke March_, Jul 22 2014
%t 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 *)
%Y Intersection of A000959 and A010785.
%Y Subset of A309406.
%K base,nonn,more
%O 1,2
%A _Patrick De Geest_
%E Two more terms from Vit Planocka (planocka(AT)mistral.cz), Feb 01 2003
%E a(15) from _Robert G. Wilson v_, May 12 2006
|
