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