OFFSET
1,1
COMMENTS
Numbers k such that the sum of the differences of the distinct prime factors p of k and the next square larger than p is equal to the largest prime factor of k.
Are there any other consecutive terms in this sequence other than 15,16 and 384,385?
LINKS
Jinyuan Wang, Table of n, a(n) for n = 1..1000
PROG
(PARI) is(k) = {if(k<2, return(0)); my(f=factor(k)[, 1]); sum(i=1, #f, (sqrtint(f[i])+1)^2-f[i]) == vecmax(f); } \\ Jinyuan Wang, Apr 17 2020
CROSSREFS
KEYWORD
nonn
AUTHOR
Jason Earls, Nov 24 2002
EXTENSIONS
Offset changed to 1 by Jinyuan Wang, Apr 17 2020
STATUS
approved