1,1
a={}; Do[p=(16^n-3^n)/13; If[PrimeQ[p], AppendTo[a, p]], {n, 1, 10^2}]; a
Cf. A128030.
Sequence in context: A074460 A032631 A142430 this_sequence A111420 A166965 A137352
Adjacent sequences: A138940 A138941 A138942 this_sequence A138944 A138945 A138946
nonn,bref
Vladimir Orlovsky (4vladimir(AT)gmail.com), May 16 2008
Search completed in 0.002 seconds
