OFFSET
1,1
COMMENTS
Any number of the forms 10^m+1, 5*10^m and 5*10^m+2 (m>0) are part of the sequence.
LINKS
Paolo P. Lava, Table of n, a(n) for n = 1..93
EXAMPLE
69 * 68 = 4692;
8752 * 8751 = 76588752.
MAPLE
P:=proc(q) local k, n; for n from 1 to q do
for k from 1 to ilog10(n*(n-1))-ilog10(n)+1 do
if n=trunc(n*(n-1)/10^(k-1)) mod 10^(ilog10(n)+1) then print(n);
break; fi; od; od; end: P(10^8);
MATHEMATICA
Select[Range[3*10^6], SequenceCount[IntegerDigits[#(#-1)], IntegerDigits[ #]]>0&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Apr 06 2020 *)
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Paolo P. Lava, Jun 28 2018
STATUS
approved