%I #10 Jul 12 2014 22:47:51
%S 1,3,7,9,13,19,21,27,31,33,37,43,49,51,57,61,63,69,73,79,87,91,93,97,
%T 99,103,117,121,127,129,139,141,147,153,157,163,169,171,181,183,187,
%U 189,201,213,217,219,223,229,231,241,247,253,259,261,267,271,273,283,297
%N Positive numbers n such that n+10 is a prime.
%F a(n) = prime(n+4) - 10.
%F a(n) = binomial(prime(n+4)-3,3) mod prime(n+4), (Empirical). - _Gary Detlefs_, Jul 10 2014
%e a(1) = 1 because 1+10 = 11 = prime.
%p A172407:=n->ithprime(n+4)-10: seq(A172407(n), n=1..50); # _Wesley Ivan Hurt_, Jul 10 2014
%t Table[Prime[n + 4] - 10, {n, 50}] (* or *)
%t Prime[Range[50] + 4] - 10 (* _Wesley Ivan Hurt_, Jul 10 2014 *)
%Y Cf. A000040.
%K nonn
%O 1,2
%A _Juri-Stepan Gerasimov_, Feb 01 2010
|