|
%I #8 Jan 14 2014 08:07:27
%S 11,431,641,1061,1481,1901,2111,2531,2741,3371,3581,4001,4211,4421,
%T 5051,5261,5471,6101,6311,6521,7151,8831,9041,9461,10091,10301,11351,
%U 11981,12401,12611,12821,13241,13451,14081,15131,15551,15761,15971,16811,17021
%N Primes of the form 210n+11.
%F a(n) = 210*A076355(n) + 11. - _Zak Seidov_, Jan 14 2014
%t Select[210 Range[0, 100] + 11, PrimeQ@ # &]
%t Select[Range[11,10^4,210],PrimeQ] (* _Zak Seidov_, Jan 14 2014 *)
%Y Cf. A073102, A076355.
%K nonn
%O 1,1
%A _Juri-Stepan Gerasimov_, Jul 04 2008
%E I changed the Mathematica coding and extended the sequence. - _Robert G. Wilson v_, Sep 22 2008
|
