OFFSET
0,2
COMMENTS
Partial sums of the sequence formed by repeating [17, 17, 18, 17, 16, 16, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 14, 14, 14, 14, 14, 14]. - Michel Marcus, Feb 01 2016
EXAMPLE
In the first one-hour period, i.e. between 0:00 and 0:59, there are PrimePi(59) - PrimePi[0] = 17 primes, therefore a(1) = 17.
MATHEMATICA
days[n_]:=Floor[n/24]; hours[n_]:=n-24*days[n];
len[n_]:=If[hours[n]==0, 0, Length[Select[Flatten[Table[Table[h+m, {m, 0, 59}], {h, 0, hours[n]-1}]], PrimeQ]]];
total[n_]:=365*days[n]+len[n];
total/@Range[0, 100]
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Ivan N. Ianakiev, Jan 30 2016
STATUS
approved