1,1
a={}; Do[p=(13^n-3^n)/10; If[PrimeQ[p], AppendTo[a, p]], {n, 1, 16^2}]; a
Cf. A128028.
Sequence in context: A106810 A161008 A137772 this_sequence A152070 A147531 A018895
Adjacent sequences: A138938 A138939 A138940 this_sequence A138942 A138943 A138944
nonn,bref
Vladimir Orlovsky (4vladimir(AT)gmail.com), May 16 2008
Search completed in 0.002 seconds