OFFSET
1,1
COMMENTS
Of the digits, 0 through 9, {0, 4, 6, 9} have one loop, 8 has two loops, and all the rest have none. - Robert G. Wilson v, Aug 20 2015
EXAMPLE
83 is the first term of the sequence. The digit 8 contains two closed curves.
MATHEMATICA
Select[Prime@ Range@ 200, 2 == Total[{ 1, 0, 0, 0, 1, 0, 1, 0, 2, 1}[[1 + IntegerDigits@ #]]]&] (* Giovanni Resta, Aug 19 2015 *)
CROSSREFS
KEYWORD
nonn,less,easy,base
AUTHOR
Altug Alkan, Aug 19 2015
EXTENSIONS
More terms from Giovanni Resta, Aug 19 2015
STATUS
approved