OFFSET
1,1
EXAMPLE
a(3)=31 because prime(31)=127 and prime(32)=131 and 127128129130131 =
3*42376043043377.
MATHEMATICA
Select[Range[900], PrimeOmega[FromDigits[Flatten[IntegerDigits/@ Range[ Prime[ #], Prime[ #+1]]]]] == 2&] (* Harvey P. Dale, Jun 16 2021 *)
CROSSREFS
KEYWORD
less,nonn,base
AUTHOR
Jason Earls, Aug 19 2005
EXTENSIONS
More terms from David Wasserman, May 28 2008
Edited by Charles R Greathouse IV, Apr 28 2010
STATUS
approved