cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A162021 Triple-safe primes which are also triple-Sophie Germain primes.

This page as a plain text file.
%I A162021 #3 Mar 31 2012 12:38:24
%S A162021 8981279,17313839,18635759,82062479,82479119,98517599,112242479,
%T A162021 113164319,152799359,184829279,193409039,230749199,296709839,
%U A162021 305598719,339116159,393280799,406283519
%N A162021 Triple-safe primes which are also triple-Sophie Germain primes.
%C A162021 The intersection of the primes in A157358 and those in A023272: they remain prime after each
%C A162021 of three successive applications of the substitution p->(p-1)/2, and remain prime after each
%C A162021 three successive applications of the substitution p->2p+1. Therefore the sequence is a subsequence
%C A162021 of A162019.
%C A162021 They appear for example in the middle of chains started in A059767 or in even longer Cunningham chains. [_R. J. Mathar_, Jun 26 2009].
%t A162021 f[n_]:=Module[{x},If[PrimeQ[(n-1)/2]&&PrimeQ[(((n-1)/2)-1)/2]&&PrimeQ[(((((n-1)/ 2)-1)/2)-1)/2]&&PrimeQ[2*n+1]&&PrimeQ[2*(2*n+1)+1]&&PrimeQ[2*(2*(2*n+1)+1)+1], x=1,x=0];x]; lst={};Do[p=Prime[n];If[f[p]!=0,AppendTo[lst,p]],{n, 6*10!}];lst
%K A162021 nonn
%O A162021 1,1
%A A162021 _Vladimir Joseph Stephan Orlovsky_, Jun 25 2009
%E A162021 Edited by _R. J. Mathar_, Jun 26 2009