login
A384014
a(n) is the number of n-digit terms in A384013.
3
0, 1, 16, 108, 834, 6893, 58659, 510839, 4515301, 40477023, 366751460, 3352789726, 30877698604, 286159371452, 2666303391801, 24959756192476, 234610874384116, 2213224276178123, 20945897352118544, 198802912201260034, 1891788092230264832, 18044365524165259927, 172479703095316537972
OFFSET
1,3
MATHEMATICA
a[1]:=0; a[n_]:=Module[{count=0}, For[k=Prime[PrimePi[10^(n-1)]+1], k<=Prime[PrimePi[10^n-1]], k=NextPrime[k], If[Part[d=IntegerDigits[k], 1]==Part[d, 2], count++]]; count]; Array[a, 7]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Stefano Spezia, May 17 2025
EXTENSIONS
a(11)-a(23) from David Radcliffe, May 17 2025
STATUS
approved