login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A271568 Squarefree semiprimes n such that phi(n) - 1 is prime. 1
10, 14, 15, 21, 26, 33, 35, 38, 39, 51, 62, 65, 69, 77, 86, 91, 93, 95, 111, 122, 123, 129, 133, 146, 159, 161, 201, 203, 206, 209, 213, 215, 217, 218, 221, 249, 278, 287, 291, 299, 301, 302, 303, 305, 321, 335, 339, 362, 371, 381, 386, 395, 398, 403 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

COMMENTS

Equals (A001358 intersection A078892) - A001248.

LINKS

Charles R Greathouse IV, Table of n, a(n) for n = 1..10000

EXAMPLE

15 is in the sequence, because 15 = 3*5 is a semiprime with omega(15) = 2 and phi(15) - 1 = 2*4 - 1 = 7 is a prime.

21 is in the sequence, because 21 = 3*7 is a semiprime with omega(21) = 2 and phi(21) - 1 = 2*6 - 1 = 11 is a prime.

MAPLE

with(numtheory):

is_A271568 := n -> issqrfree(n) and bigomega(n) = 2 and isprime(phi(n)-1):

select(is_A271568, [$1..403]); # Peter Luschny, Jul 21 2016

MATHEMATICA

A271568Q = SquareFreeQ[#] && PrimeNu[#] == 2 && PrimeQ[EulerPhi[#] - 1] &; Select[Range[500], A271568Q] (* JungHwan Min, Jul 29 2016 *)

PROG

(PARI) is_a001358(n) = bigomega(n)==2

is_a005117(n) = issquarefree(n)

is_a078892(n) = ispseudoprime(eulerphi(n)-1)

is(n) = is_a001358(n) && is_a005117(n) && is_a078892(n) \\ Felix Fröhlich, Jul 21 2016

(PARI) is(n)=my(f=factor(n)); f[, 2]==[1, 1]~ && isprime((f[1, 1]-1)*(f[2, 1]-1)-1) \\ Charles R Greathouse IV, Jul 21 2016

(PARI) list(lim)=my(v=List()); forprime(p=2, sqrt(lim), forprime(q=p+1, lim\p, if(isprime((p-1)*(q-1)-1), listput(v, p*q)))); Set(v) \\ Charles R Greathouse IV, Aug 29 2016

(MAGMA) [n: n in [1..500] |(EulerPhi(n)+DivisorSigma(1, n)) eq 2*(n+1) and IsPrime(EulerPhi(n)-1)]; // Vincenzo Librandi, Jul 29 2016

CROSSREFS

Cf. A001358, A078892, A001248.

Sequence in context: A087247 A171156 A235690 * A229271 A088711 A154774

Adjacent sequences:  A271565 A271566 A271567 * A271569 A271570 A271571

KEYWORD

nonn

AUTHOR

Debapriyay Mukhopadhyay, Jul 13 2016

EXTENSIONS

New name from Charles R Greathouse IV, Jul 29 2016

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified October 15 05:56 EDT 2018. Contains 316202 sequences. (Running on oeis4.)