OFFSET
1,1
COMMENTS
Any number of the form 5*10^m, with m>0, is part of the sequence.
LINKS
Paolo P. Lava, Table of n, a(n) for n = 1..74
EXAMPLE
31*32*33 = 32736 and 32 is a substring, so it is in the sequence.
5110*5111*5112 = 133511177520 and 5111 is a substring, so it is in the sequence.
MAPLE
P:=proc(q) local k, n; for n from 1 to q do
for k from 1 to ilog10((n-1)*n*(n+1))-ilog10(n)+1 do
if n=trunc((n-1)*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[10^5], SequenceCount @@ Map[IntegerDigits, {(# - 1) # (# + 1), #}] > 0 &] (* Michael De Vlieger, Jul 20 2018 *)
Select[Range[63*10^5], SequenceCount[IntegerDigits[#^3-#], IntegerDigits[#]]>0&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Dec 26 2018 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Paolo P. Lava, Jul 17 2018
STATUS
approved