cp's OEIS Frontend

A103664 Primes p such that the number of divisors of p-1 is less than the number of divisors of p+1.

%I A103664 #17 May 31 2019 12:30:46
%S A103664 2,3,5,11,17,23,29,47,53,59,71,79,83,89,107,131,139,149,167,173,179,
%T A103664 191,197,223,227,233,239,251,263,269,293,311,317,347,359,367,383,389,
%U A103664 419,431,439,443,449,461,467,479,499,503,509,557,563,569,587,593,599,607
%N A103664 Primes p such that the number of divisors of p-1 is less than the number of divisors of p+1.
%C A103664 Mathematica coding by _Wouter Meeussen_ and _Robert G. Wilson v_.
%H A103664 Alois P. Heinz, <a href="/A103664/b103664.txt">Table of n, a(n) for n = 1..10000</a>
%e A103664 a(1)=2 because d(1)=1 < d(3)=2; a(2)=3 because d(2)=2 < d(4)=3.
%p A103664 with(numtheory): p:=proc(n) if isprime(n) and tau(n-1)<tau(n+1) then n else fi end: seq(p(n),n=1..1000); # _Emeric Deutsch_, Feb 22 2005
%t A103664 Select[Prime[Range[1, 140]], Length[Divisors[ # - 1]] < Length[Divisors[ # + 1]] &]
%t A103664 Select[Prime[Range[200]],DivisorSigma[0,#-1]<DivisorSigma[0,#+1]&] (* _Harvey P. Dale_, May 31 2019 *)
%Y A103664 Cf. A008328 number of divisors of p-1, A008329 number of divisors of p+1, A103665, A103666, A103667.
%K A103664 nonn
%O A103664 1,1
%A A103664 _Hugo Pfoertner_, Feb 19 2005