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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A194593 Semiprimes s such that phi(s)/2 is prime. 4
9, 10, 14, 22, 46, 94, 118, 166, 214, 334, 358, 454, 526, 694, 718, 766, 934, 958, 1006, 1126, 1174, 1438, 1678, 1726, 1774, 1966, 2038, 2374, 2566, 2614, 2638, 2734, 2878, 2974, 3046, 3238, 3646, 3814, 4054, 4078, 4126, 4198, 4414, 4894, 4918, 5158, 5638, 5758, 5806, 5926, 5998 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

COMMENTS

For n > 2, A001221(a(n)) = A001221(A000010(a(n))) = 2, and A008683(a(n)) = A008683(A000010(a(n))) = 1. - Torlach Rush, Aug 23 2018

For n > 1, A000010(a(n)) = A077065(n-1). - Torlach Rush, Sep 11 2018

LINKS

Robert Israel, Table of n, a(n) for n = 1..10000

FORMULA

a(n) = 2*A005385(n-1), n>1.

MAPLE

9, 10, op(select(s -> isprime(s/2) and isprime((s-2)/4), [seq(s, s=6..10000, 8)])); # Robert Israel, Apr 06 2016

MATHEMATICA

Select[Range@ 6000, PrimeOmega@ # == 2 && PrimeQ[EulerPhi[#]/2] &] (* Michael De Vlieger, Apr 06 2016 *)

PROG

(PARI) isok(n) = (bigomega(n)== 2) && isprime(eulerphi(n)/2); \\ Michel Marcus, Apr 06 2016

(MAGMA) [9] cat [2*p: p in PrimesUpTo(3000) | IsPrime((p - 1) div 2)]; // Vincenzo Librandi, Aug 25 2018

CROSSREFS

Cf. A000010, A001358, A005385, A079148, A065966.

Sequence in context: A020199 A227943 A114844 * A005381 A175090 A197113

Adjacent sequences:  A194590 A194591 A194592 * A194594 A194595 A194596

KEYWORD

nonn

AUTHOR

Juri-Stepan Gerasimov, Aug 30 2011

EXTENSIONS

Corrected by R. J. Mathar, Oct 13 2011

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
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 21 22:19 EDT 2019. Contains 321382 sequences. (Running on oeis4.)