OFFSET
1,1
EXAMPLE
a(4) = 65437, four successive positive integers 6,5,4,3 in descending order followed by a 7.
MATHEMATICA
a[n_]:=(For[m=1, (v={}; Do[v=Join[v, IntegerDigits[k]], {k, m+n-1, m, -1}]); !PrimeQ[10FromDigits[v]+7], m++ ]; 10FromDigits[v]+7); Table[a[n], {n, 14}] - Farideh Firoozbakht
f[n_] := Block[{t = Reverse@Range@n}, While[p = FromDigits@Flatten@IntegerDigits@Join[t, {7}]; !PrimeQ@p, t++ ]; p]; Array[f, 14] (* Robert G. Wilson v *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Jan 01 2006
EXTENSIONS
STATUS
approved