0,2

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)&]

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 (rgwv(at)rgwv.com), May 12 2006. a(16)>10^8.

Cf. A000959.

Sequence in context: A057840 A072087 A031161 this_sequence A075982 A100839 A013624

Adjacent sequences: A031879 A031880 A031881 this_sequence A031883 A031884 A031885

nonn,more

Patrick De Geest (pdg(AT)worldofnumbers.com)

Two more terms from Vit Planocka (planocka(AT)mistral.cz), Feb 01 2003

a(15) from Robert G. Wilson v (rgwv(at)rgwv.com), May 12 2006. a(16)>10^8.