Used PFGW with base 13 and Mathematica s PrimeQ. The Mathematica code for this number is a={1,0,0,0,0,0,0}; Do[s=Plus@@a; a=RotateLeft[a]; a[[-1]]=s, {n,102490}]; s

To be completed...