|
%I #11 Apr 17 2020 04:34:45
%S 2,4,6,8,12,15,16,18,24,32,36,45,48,54,64,72,75,96,105,108,110,128,
%T 135,144,162,192,216,220,225,256,288,315,324,375,384,385,405,432,440,
%U 486,512,525,550,576,648,675,735,768,864,880,935,945,972,1024,1100,1125
%N Numbers k such that A078142(k) = A006530(k).
%C 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.
%C Are there any other consecutive terms in this sequence other than 15,16 and 384,385?
%H Jinyuan Wang, <a href="/A078327/b078327.txt">Table of n, a(n) for n = 1..1000</a>
%o (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
%Y Cf. A006530, A078142, A078328, A145445.
%K nonn
%O 1,1
%A _Jason Earls_, Nov 24 2002
%E Offset changed to 1 by _Jinyuan Wang_, Apr 17 2020
|
