|
%I #9 Jul 09 2018 21:21:24
%S 4,8,9,16,25,27,32,49,64,81,105,121,125,128,169,231,243,256,289,315,
%T 343,361,512,525,529,625,627,693,729,735,841,897,935,945,961,1024,
%U 1155,1331,1369,1575,1581,1617,1681,1729,1849,1881,2048,2079,2187,2197,2205,2209
%N Composite numbers k such that (A006530(k) + A020639(k))/2 is an integer that divides k; special terms of A088948.
%e k = 315 = 3*3*5*7 (composite); (3 + 7)/2 = 5, which divides k.
%o (PARI) lista(nn) = {forcomposite(n=1, nn, my(f = factor(n)[,1], x = (vecmin(f) + vecmax(f))/2); if ((denominator(x)==1) && !(n % x), print1(n, ", ")););} \\ _Michel Marcus_, Jul 09 2018
%Y Cf. A006530, A020639, A088948, A088595, A046687.
%K nonn
%O 1,1
%A _Labos Elemer_, Nov 20 2003
%E Edited by _Jon E. Schoenfield_, Jul 08 2018
%E More terms from _Michel Marcus_, Jul 09 2018
|
