A031882 - OEIS

This site is supported by donations to The OEIS Foundation.

A031882

Repdigital lucky numbers.

1, 3, 7, 9, 33, 99, 111, 777, 9999, 33333, 55555, 111111, 777777, 7777777, 55555555 (list; graph; refs; listen; history; internal format)

	OFFSET	`0,2`
	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)&]` `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.`
	CROSSREFS	`Cf. A000959.` `Sequence in context: A057840 A072087 A031161 * A199190 A075982 A100839` `Adjacent sequences: A031879 A031880 A031881 * A031883 A031884 A031885`
	KEYWORD	`nonn,more`
	AUTHOR	`Patrick De Geest (pdg(AT)worldofnumbers.com)`
	EXTENSIONS	`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.`

Content is available under The OEIS End-User License Agreement .

Last modified February 16 17:48 EST 2012. Contains 205939 sequences.