OFFSET
1,3
COMMENTS
Numerous patterns exist in the terms, e.g., all numbers of the form 1*10^k, 5*10^k, 6*10^k, 75*10^k, 10^(k+2)+25, where k>=0, are in the sequence.
LINKS
Robert Israel, Table of n, a(n) for n = 1..153
EXAMPLE
6 is a term as 6*reverse(6) = 6*6 = 36 contains '6' as a substring.
47 is a term as 47*reverse(47) = 47*74 = 3478 contains '47' as a substring.
1052 is a term as 1052*reverse(1052) = 1052*2501 = 2631052 contains '1052' as a substring.
MAPLE
filter:= proc(n) local L, d, Lp, r, i;
L:= convert(n, base, 10);
d:= nops(L);
r:= add(L[-i]*10^(i-1), i=1..d);
Lp:= convert(n*r, base, 10);
ormap(t -> Lp[t..t+d-1] = L, [$1..nops(Lp)+1-d])
end proc:
select(filter, [$0..120000]); # Robert Israel, Mar 24 2024
MATHEMATICA
Select[Range[0, 110000], SequenceCount[IntegerDigits[# IntegerReverse[#]], IntegerDigits[#]]>0&] (* Harvey P. Dale, Apr 20 2024 *)
PROG
(PARI) isok(m) = #strsplit(Str(m*fromdigits(Vecrev(digits(m)))), Str(m)) > 1; \\ Michel Marcus, Mar 01 2021
(Python)
def ok(n): return (s:=str(n)) in str(n*int(s[::-1]))
print([k for k in range(10**6) if ok(k)]) # Michael S. Branicky, Mar 25 2024
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Scott R. Shannon, Mar 01 2021
STATUS
approved