|
%I #28 Sep 01 2016 10:23:48
%S 1,2,3,4,6,7,11,12,14,27,30,32,33,37,38,41,73,77,94,116,154,166,320,
%T 324,340,379,399,427,469,546,872,974,1477,1963,3507,3610,6380,6917,
%U 21480,26951,34790,94550,103040,110059,147855,150209,208003
%N A088258 indexed by A000142.
%C Union of A002981 and A002982, except 0. - _Andrey Zabolotskiy_, Aug 25 2016
%H Hisanori Mishima, <a href="http://www.asahi-net.or.jp/~KC2H-MSM/mathland/matha2/fact_prp.htm">Primes near n!</a>, Dec 2008.
%F a(n) is such positive k that A088258(n) = A000142(k).
%p select(t -> isprime(t!-1) or isprime(t!+1), [$1..600]); # _Robert Israel_, Aug 25 2016
%t Select[Range[10^3], Or @@ PrimeQ@ {# - 1, # + 1} &[#!] &] (* _Michael De Vlieger_, Aug 25 2016 *)
%Y Cf. A000142, A088258.
%K nonn
%O 1,2
%A _Ray Chandler_, Sep 29 2003
%E Values 320 to 546 extracted from Mishima's table by _R. J. Mathar_, Mar 05 2010
%E More terms and correction of the initial term from _Andrey Zabolotskiy_, Aug 25 2016
|
