A096724 Duplicate of A088553.
2, 5, 13, 41, 1093, 797161, 21523361, 926510094425921
Offset: 1
This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
Select[Range[4200],Or@@PrimeQ[(3^#+{1,-1})/2]&] (* Harvey P. Dale, Mar 05 2013 *)
Select[NestList[(Numerator[#]+4*Denominator[#])/(Numerator[#]+Denominator[#])&,1/1,200]//Numerator,PrimeQ] (* Harvey P. Dale, Jan 04 2024 *)
primenum(n,k,typ) = \ k=mult,typ=1 num,2 denom. ouyput prime num or denom. { local(a,b,x,tmp,v); a=1;b=1; for(x=1,n, tmp=b; b=a+b; a=k*tmp+a; if(typ==1,v=a,v=b); if(isprime(v),print1(v","); ) ); print(); print(a/b+.) }
Comments