urls1=Import["https://www.astro.com/astro-databank/Special:AllPages","Hyperlinks"];

pos=Position[StringMatchQ[Flatten[urls1],"https://www.astro.com/astro-databank/*"],True];

urls2=Union[Flatten[urls1],Flatten[Table[Import[urls1[[i]],"Hyperlinks"],{i,Flatten[pos]}]]];

pos=Position[StringMatchQ[urls2[[1;;Length[urls2]-1]],"https://www.astro.com/astro-databank/*"],True];

urls3=Union[Flatten[urls2],Flatten[Table[Import[urls2[[i]],"Hyperlinks"],{i,Flatten[pos]}]]];

urls3A=DeleteCases[urls3,$Failed]

pos=Position[StringMatchQ[urls3A,"https://www.astro.com/astro-databank/*"],True];

Length[pos]

urls3B=urls3A[[Flatten[pos]]];

Export["urls3B.mx",urls3B]

data=ParallelMap[Import,urls3B];

Export["data.mx",DeleteCases[data,$Failed]]

pos=Position[StringContainsQ["Rodden Rating A"]/@DeleteCases[data,$Failed](*&&StringContainsQ["Biography"]/@data*),True]

Length[pos]

pos2=Position[StringContainsQ["Mundane :"]/@DeleteCases[data,$Failed](*&&StringContainsQ["Biography"]/@data*),False]

pos3=Intersection[Flatten[pos],Flatten[pos2]];

Length[pos3]

data3=data[[pos3]];

Export["data3.mx",data3]

data3=DeleteCases[DeleteDuplicates[Import["data3.mx"]],$Failed];

Length[data3]

InputForm[data3[[136]]]

data3[[168]]

StringContainsQ[data4[[136]],"Accident: "]

InputForm[data3[[134]]]

StringPosition[data3[[134]],":"][[1,1]]

pos4=Position[Table[StringPosition[data3[[i]],":"][[1,1]]<StringPosition[data3[[i]],"\n"][[1,1]],{i,1,Length[data3]}],False]

Length[pos4]

data4=data3[[Flatten[pos4]]];

pos5=Position[StringContainsQ["Rodden Rating AA"]/@DeleteCases[data4,$Failed](*&&StringContainsQ["Biography"]/@data*),True]

data5=data4[[Flatten[pos5]]];

Length[data5]

data5[[2]]

StringContainsQ[data5[[1]],"born on 19 January 1989"]

pos6=Union[Flatten[Table[Flatten[Position[StringContainsQ[data5,(*"born on"~~___~~*)ToString[j]<>" at "],True]],{j,1930,2018}]]]

data6=data5[[pos6]]

table=Table[SortBy[Tally[StringContainsQ[DeleteCases[data6,$Failed],(*PatternSequence["born on ",__String,*)(*StringPadLeft[ToString[j],2,"0"]<>*)":"<>StringPadLeft[ToString[i],2,"0"]<>" (="](*]*)],First][[2,2]],{i,0,59}]

BarChart[table]

labels=Table[StringPadLeft[ToString[i-1],2,"0"],{i,1,60}]

BarChart[table,ChartLabels->labels,PlotLabel->"By the Minute: Even for AA Rating, Duplicate-Free, Charts for People Born After 1930, Multiples of Five Far Exceed Equal Distribution. n="<>ToString[ Length[data6]],ImageSize->Large]

simul=RandomVariate[DiscreteUniformDistribution[{0,59}],13056];

Histogram[simul,60,"Count",ChartLabels->labels,PlotLabel->"By the Minute: What a Simulation of a Uniform Distribution Looks Like. n="<>ToString[ Length[simul]],ImageSize->Large]

DistributionFitTest[simul,DiscreteUniformDistribution[{0,59}],"TestDataTable"]

DistributionFitTest[table,DiscreteUniformDistribution[{0,59}],"TestDataTable"]