|
%I #6 Jul 14 2015 01:08:19
%S 17,131,223,97,113,127,149,181,211,241,293,307,941,367,397,419,421,
%T 1303,457,479,487,557,587,631,1931,661,683,691,719,727,743,773,787,
%U 797,809,811,839,863,877,907,929,937,953,967,983,1009,1021,1049,1051,1087,1117
%N Primes in A179816.
%C From _Robert G. Wilson v_, Aug 02 2010: (Start)
%C These occur at the n-th decade: 1, 5, 8, 10, 12, 13, 15, 19, 22, 25, 30, ..., .
%C And sorted the sequence is 17, 97, 113, 127, 131, 149, 181, 211, 223, 241, ..., . (End)
%t f[n_] := Plus @@ Select[ Range[10 n + 1, 10 n + 9], PrimeQ]; Select[f@# & /@ Range[0, 111], PrimeQ] (* _Robert G. Wilson v_, Aug 02 2010 *)
%Y Cf. A000040, A179816.
%K easy,nonn
%O 0,1
%A _Odimar Fabeny_, Jul 28 2010
%E More terms from _Robert G. Wilson v_, Aug 02 2010
|
