OFFSET
0,1
COMMENTS
Since prime gaps increase on the average, this sequence fades out with more and more zeros as the indices increase.
EXAMPLE
There are 4 zeros, 3 ones, 2 twos, etc. in A155213.
MAPLE
:= proc(n) floor( ithprime(n)/9) ; end: a155213 := [seq(A155213(n), n=1..200)] ;
A155462 := proc(n) global a155213; ListTools[Occurrences](n, a155213) ; end:
seq(A155462(n), n=0..max(op(a155213))) ; # R. J. Mathar, Jul 23 2009
CROSSREFS
KEYWORD
nonn
AUTHOR
Paul Curtz, Jan 22 2009
EXTENSIONS
Edited and extended by R. J. Mathar, Jul 23 2009
STATUS
approved