%I #3 Mar 31 2012 12:38:25
%S 67,509,45060624733,21424521360255636739,
%T 404577789549846859589538794509144411672022828773,
%U 22138618005861522471365237940368652982888104077311
%N Primes of the form A000041(p)+p, where p is some prime.
%F a(n) = A000041(A163151(n))+A163151(n).
%e With p=11=A000040(5) = A163151(1), a(1)= A000041(11)+11 = 67 is prime.
%t f[n_]:=PartitionsP[n]+n; lst={};Do[p=Prime[n];If[PrimeQ[f[p]],AppendTo[lst, f[p]]],{n,6!}];lst
%Y Cf. A098145
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Jul 21 2009
%E Removed Mathematica specific language in the definition - _R. J. Mathar_, Sep 11 2009
|