OFFSET
0,1
EXAMPLE
8763 = 3*23*127 and 8764 = 2*2*7*313.
MATHEMATICA
fds[n_]:=Sort[Flatten[IntegerDigits/@Table[First[#], {Last[#]}]&/@n]]; Select[Range[1100000], fds[FactorInteger[#]]==fds[FactorInteger[#+1]]&] (* Harvey P. Dale, Jun 21 2011 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Erich Friedman, Jun 16 2001
EXTENSIONS
More terms from David Wasserman, Jun 20 2002
STATUS
approved