|
%I #7 May 29 2013 11:27:41
%S 41,263,50539,64007,151549,191953,205421,232357,252559,266027,272761,
%T 306431,326633,35035369,39039373,52386053,62396063,70404071,77077411,
%U 82416083,96430097,103103437,106440107,110444111
%N Primes generated by concatenation of three consecutive numbers divided by three.
%e 41 is in the list since concatenation of 1, 2 and 3 gives 123/3 = 41. Similarly concatenation of 15, 16 and 17 gives 151617 and 151617/3 = 50539, a prime.
%t Select[Table[FromDigits[Flatten[IntegerDigits[n + Range[-1, 1]]]]/3, {n, 350}], PrimeQ]
%Y Cf. A001703.
%K nonn,base
%O 1,1
%A _Jayanta Basu_, May 24 2013
|
