login
Primes generated by concatenation of three consecutive numbers divided by three.
0

%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