|
%I #7 Feb 09 2020 12:04:57
%S 0,260,1770,3914,10074,11390,12734,14454,17024,20580,21834,21854,
%T 25404,29784,30470,31800,33230,37694,39530,41490,45164,49134,54594,
%U 57834,60894,66480,68174,68550,71994,72024,72500,78834,80760,82760,84720
%N Intersection of A108027, A108028, A108029 and A108030.
%H Daniel Starodubtsev, <a href="/A108109/b108109.txt">Table of n, a(n) for n = 1..10000</a>
%t s={};Do[If[Union[PrimeQ/@{151*n+149, 149*n+151, 137*n+139, 139*n+137}]=={True}, s=Append[s, n]], {n, 100000}];s
%Y Cf. A108027, A108028, A108029, A108030.
%K nonn
%O 1,2
%A _Zak Seidov_, Jun 03 2005
%E a(1)=0 inserted by _Daniel Starodubtsev_, Feb 09 2020
|
