OFFSET
1,1
COMMENTS
Realization of the general term presented in the sequence A298008, for the case of p=2. See detailed comments there.
FORMULA
a(n) = A038822(n-1) + 100*(n-1); - Michel Marcus, Jan 11 2018
MATHEMATICA
Block[{p = 2, k}, k = 10^p; Array[Apply[Subtract, PrimePi[{k #, k (# - 1)}]] + (# - 1) k &, 50]] (* Michael De Vlieger, Jan 11 2018 *)
PROG
(Python)
# Generates all elements of the sequence smaller than last
last = 1000
p=[2]
c=1
for i in range(3, last+2, 2):
prime = True
for j in p:
if i%j == 0:
prime=False;
break
if prime:
p.append(i)
c = c + 1
ii = (i//100)*100
if i-ii == 1:
if prime:
print(ii-100+c-1, end=', ')
c = 1
else:
print(ii-100+c, end=', ')
c = 0
CROSSREFS
KEYWORD
nonn
AUTHOR
Luis F.B.A. Alexandre, Jan 10 2018
STATUS
approved