A088412 - OEIS

%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