Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #23 Apr 17 2024 02:30:07
%S 8,9,12,18,24,40,56,60,84,88,104,132,136,152,156,184,204,228,232,248,
%T 276,296,328,344,348,372,376,424,444,472,488,492,516,536,564,568,584,
%U 632,636,664,708,712,732,776,804,808,824,852,856,872,876,904,948,996
%N Numbers k such that k/d(k) is prime, where d(k) is the number of divisors of k.
%C If p is an odd prime, then 8*p is a term. - _Amiram Eldar_, Apr 17 2024
%H Amiram Eldar, <a href="/A063080/b063080.txt">Table of n, a(n) for n = 1..10000</a> (terms 1..1000 from Harry J. Smith)
%e k = 18: 18/d(18) = 3 a prime.
%t Select[Range[1000],PrimeQ[#/DivisorSigma[0,#]]&] (* _Harvey P. Dale_, Sep 01 2014 *)
%o (PARI) ok(m)={my(d=numdiv(m)); m%d==0 && isprime(m/d)}
%Y Cf. A000005, A039819, A036762, A051278, A051279, A051280, A036763, A033950.
%K easy,nonn
%O 1,1
%A _Jason Earls_, Aug 05 2001