SharePoint 2013 Soical (Newsfeeds, Follows, etc..) error or do not display

Newsfeeds do not roll up and receive errors:

SharePoint returned the following error: The operation failed because the server could not access the distributed cache. Internal type name: Microsoft.Office.Server.Microfeed.MicrofeedException. Internal error code: 55. Contact your system administrator for help in resolving this problem.

Fist run the following to rebuild the Distributed Cache and then add the user profile app pool account to the User Profile Service Application Permissions:

#


# Command used to determine if the cache is running.
Use-CacheCluster
Get-CacheHost



# rebuild Distributed Cache
Remove-SPDistributedCacheServiceInstance
$SPFarm = Get-SPFarm
$cacheClusterName = "SPDistributedCacheCluster_" + $SPFarm.Id.ToString()
$cacheClusterManager = [Microsoft.SharePoint.DistributedCaching.Utilities.SPDistributedCacheClusterInfoManager]::Local
$cacheClusterInfo = $cacheClusterManager.GetSPDistributedCacheClusterInfo($cacheClusterName);
$instanceName ="SPDistributedCacheService Name=AppFabricCachingService"
$serviceInstance = Get-SPServiceInstance | ? {($_.Service.Tostring()) -eq $instanceName -and ($_.Server.Name) -eq $env:computername}
$serviceInstance.Delete()
Add-SPDistributedCacheServiceInstance
Get-CacheHost
# confirm that UP is reported



#add USP application pool to USP
#first run Get-SPServiceApplication to find the USP ID
$account = New-SPClaimsPrincipal -IdentityType WindowsSamAccountName
$UPA = Get-SPServiceApplication
$sec = Get-SPServiceApplicationSecurity $UPA
Grant-SPObjectSecurity $sec -Principal $account -Rights "Full Control"
Set-SPServiceApplicationSecurity -Identity $UPA -ObjectSecurity $sec