OFFSET
1,1
LINKS
Charlie Neder, Table of n, a(n) for n = 1..33
Charlie Neder, Python program for computing this sequence
MAPLE
A074112 := proc(n)
option remember;
local a, o, wrks, j ;
if n = 1 then
return 6;
end if;
for a from 10^n-1 to 10^(n-2) by -1 do
if numtheory[issqrfree](a) then
o := omega(a) ;
wrks := true;
for j from 1 to n-1 do
if omega(procname(j)) >= o then
wrks := false;
break;
end if;
end do:
if wrks then
return a;
end if;
end if;
end do:
return -1 ;
end proc:
for j from 1 do
print( A074112(j)) ;
end do: # R. J. Mathar, Oct 03 2014
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Aug 27 2002
EXTENSIONS
Corrected and extended by Matthew Conroy, Aug 27 2002
Definition corrected by R. J. Mathar, Oct 03 2014
a(8) to a(20) from Charlie Neder, Jan 15 2019
STATUS
approved