OFFSET
1,1
COMMENTS
LINKS
M. F. Hasler and Donovan Johnson, Table of n, a(n) for n = 1..1000 (first 140 terms from M. F. Hasler)
PROG
(PARI) is_A218448(n)={my(f); !for(i=0, 4, f!=(f=vecsort(factor(n+i)[, 2])) & i & return)}
(PARI) f(k)=vecsort(factor(k)[, 2]~, , 4)
t=f(n=2); while(n<1e8, for(i=n+1, n+4, tt=f(i); if(tt!=t, n=i; t=tt; next(2))); print1(n", "); n++) \\ Charles R Greathouse IV, Oct 28 2012
CROSSREFS
KEYWORD
nonn
AUTHOR
M. F. Hasler, Oct 28 2012
EXTENSIONS
a(6)-a(8) from Charles R Greathouse IV, Oct 28 2012
a(9)-a(25) from Donovan Johnson, Oct 28 2012
Values up to a(140) computed using b175590.txt from Charles R Greathouse IV - M. F. Hasler, Oct 28 2012
STATUS
approved