OFFSET
1,2
COMMENTS
a(16) > 10^8. - Robert G. Wilson v, May 12 2006
a(16) > 10^9. - Luke March, Jul 22 2014
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 *)
CROSSREFS
KEYWORD
base,nonn,more
AUTHOR
EXTENSIONS
Two more terms from Vit Planocka (planocka(AT)mistral.cz), Feb 01 2003
a(15) from Robert G. Wilson v, May 12 2006
STATUS
approved