I have a program that outputs values for T in the following nested list:
{{{T->3398}, {T->56706}, {T->1.1049x10^7}, {T->9.192x10^7}}, {{T->3379}, {T->54664},
{T->1.07x10^7}, {T->8.769x10^7}}, {{T->3353}, {T->52293}, {T->1.04x10^7}, {T->8.346x10^7}}}
I want to use these values to make a table and plot them, but I can't work with the data as it is right now because it is in these nested lists and attached to T with the right arrow. I would like to be able to take the first value of T in each of the innermost lists, so 3398 3379 and 3353, but I am unable to do so. I've tried the flatten function and tried to create a solution with the Map function but mathematica only returns this same list. I should also note that my program runs a do loop 3 times to get those 3 innermost lists, and when I run the code after solving this problem I will run the do loop more times as I want to plot the first values as curves.
I should also note that in a separate file where I only run the do loop once I am able to flatten the list with a solution I found from another question. I thought I could apply this solution to the above problem and then take the first values but I was unable to do so. The problem is I need to run that do loop multiple times for my project so it doesn't help to be able to get the values for only running it once.
{{T->5416}, {T->1.532x10^6}, {T->3.85x10^6}, {T->1.399x10^8}}
list = %18
yay = {T} /. list
yayy = Flatten[yay]
ListPlot[yayy]
Can anybody help me to flatten the list so I can work with the values, specifically so I can grab the first T value from each innermost list? Any help is appreciated thank you!