OFFSET
1,1
REFERENCES
Sylvia Nasar, A Beautiful Mind (1998), p. 80.
MATHEMATICA
Select[NestList[2#&, 1024, 150], Take[IntegerDigits[ # ], {-4, -4}][[1]]==7&]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Harvey P. Dale, Mar 06 2002
STATUS
approved