|
%I #21 Jul 23 2013 20:51:41
%S 0,6,7,11,14,28,30,33,37,39,47,53,61,65,74,75,76,77,84,88,91,110,128,
%T 139,152,158,170,179,180,194,195,201,215,216,228,229,251,271,282,305,
%U 308,312,334,336,345,362,366,368,370,373,383,384,410,411,413,427,450
%N Numbers n such that 90*n + 29 and 90*n + 31 are twin primes.
%F A201739 INTERSECT A201819.
%p a:= proc(n) option remember; local k; for k from 1+
%p `if`(n=1, -1, a(n-1)) while not (isprime(29+(90*k))
%p and isprime(31+(90*k))) do od; k
%p end:
%p seq(a(n), n=1..100); # _Alois P. Heinz_, Jul 23 2013
%t Select[Range[0, 499], PrimeQ[90# + 29] && PrimeQ[90# + 31] &] (* copied from: _Alonso del Arte_, Jul 22 2013 *)
%Y Cf. A201739, A201819.
%K nonn,easy
%O 1,2
%A _J. W. Helkenberg_, Jul 22 2013
|
