OFFSET
1,1
LINKS
Thomas Garrison, Table of n, a(n) for n = 1..369
EXAMPLE
| prime |
k | factorization | gpf(k) | tau(k)
----+---------------+--------+-------
151 | 151 | 151 | 2
152 | 2^3 * 19 | 19 | 8
153 | 3^2 * 17 | 17 | 6
154 | 2 * 7 * 11 | 11 | 8
155 | 5 * 31 | 31 | 4
156 | 2^2 * 3 * 13 | 13 | 12
157 | 157 | 157 | 2
158 | 2 * 79 | 79 | 4
159 | 3 * 53 | 53 | 4
MAPLE
A:= Vector(100): A[1]:= 2: count:= 1:
B:= Vector(100):
for i from 2 while count < 100 do
p:= max(numtheory:-factorset(i));
for j from 1 to min(p-1, 100) do
if B[j] = 0 then B[j]:= i fi
od;
for j from p to 100 do
if B[j] > 0 and B[j] <= i-j and A[j] = 0 then A[j]:= B[j]; count:= count+1; fi
od;
if p <= 99 then B[p..100]:= 0 fi;
od:
convert(A, list); # Robert Israel, Jan 23 2023
PROG
(PARI) a(n) = {my(k=1); x=0; while(x<n, if(vecmax(factor(k++)[, 1])>n, x++, x=0)); k-n+1; } \\ Jinyuan Wang, Oct 26 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
Jon E. Schoenfield, Oct 06 2019
STATUS
approved