1,1

Digits can be in ascending or descending order. After 9 comes 0 or after 0 comes 1.

The number of primes with n consecutive digits: 4,4,1,1,3,1,0,2,0,0,0,0,1,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,1,1,0,0,0,0,0,0,1,0,0,0,0,0,0,0,...,.

f[n_] := Block[{u = Range@n, d = Reverse@ Range@n, t = Table[1, {n}]}, Select[ Drop[ Union@ Flatten@ Table[ FromDigits /@ Mod[{u, d} + {i*t, i*t}, 10], {i, 10}], 2], PrimeQ@# &]]; Array[f, 35] // Flatten

Cf. A000040, A118697; union of A006055 & A120804.

Adjacent sequences: A120802 A120803 A120804 this_sequence A120806 A120807 A120808

Sequence in context: A048398 A059170 A068710 this_sequence A096265 A056041 A083017

nonn

Robert G. Wilson v (rgwv(AT)rgwv.com), Jul 05 2006