%I #9 Jul 16 2024 14:14:08
%S 2,5,47,449,4447,44449,444449,4444469,44444453,444444457,4444444447,
%T 44444444497,444444444461,4444444444493,44444444444459,
%U 444444444444461,4444444444444463,44444444444444461,444444444444444469,4444444444444444537,44444444444444444447
%N a(n) is the smallest prime greater than 4(10^n - 1)/9.
%C a(n) = smallest prime > A002278(n).
%e n=4: 44 is followed by 47.
%t Table[NextPrime[4*(10^n-1)/9], {n, 0, 35}]
%Y Cf. A003618, A003617, A096497, A096498, A068104, A002275-A002283, A099656-A099668.
%K base,nonn
%O 0,1
%A _Labos Elemer_, Nov 17 2004
%E Checked by _N. J. A. Sloane_, Jan 27 2007
%E Mathematica program edited by _Harvey P. Dale_, Jul 16 2024