|
%I #10 Aug 29 2016 14:10:00
%S 11,23,113,131,167,211,233,263,269,311,359,383,431,443,727,863,1163,
%T 1217,1223,1259,1361,1427,1439,1613,1619,1637,1721,1777,1823,1847,
%U 2111,2213,2221,2243,2267,2333,2339,2393,2411,2423,2621,2633,2663,2687,2699,2969,3221,3323,3329,3491
%N Primes p containing no zero digits and such that p+1 is divisible by every digit of p.
%H Harvey P. Dale, <a href="/A179520/b179520.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[25000]],DigitCount[#,10,0]==0&&AllTrue[(#+1)/ IntegerDigits[ #],IntegerQ]&] (* Requires Mathematica version 10 or later *)
%Y Cf. A081981.
%K nonn,base
%O 1,1
%A Harvey P. Dale and _N. J. A. Sloane_, Jan 08 2011
|
