OFFSET
1,2
COMMENTS
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
f:= proc(n) local k, v;
if n mod 10 = 0 or max(NumberTheory:-PrimeFactors(n))>7 then return 0 fi;
for k from n by n do
v:= convert(convert(k, base, 10), `*`);
if v > 0 and v mod n = 0 then return k fi
od
end proc:
map(f, [$1..100]); # Robert Israel, Dec 28 2025
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Jul 06 2003
EXTENSIONS
More terms from David Wasserman, Jan 27 2005
Comments edited by Jon E. Schoenfield, Mar 30 2014
Definition clarified by Robert Israel, Dec 28 2025
STATUS
approved
