OFFSET
1,2
REFERENCES
M. Cerasoli, F. Eugeni and M. Protasi, Elementi di Matematica Discreta, Bologna 1988
Emanuele Munarini and Norma Zagaglia Salvi, Matematica Discreta, UTET, CittaStudiEdizioni, Milano 1997
LINKS
Nathaniel Johnston, Table of n, a(n) for n = 1..10000
FORMULA
a(n) = 2*A024912(n) - 1.
MAPLE
A081759 := proc(n) option remember: local k: if(n=1)then return 1: fi: for k from procname(n-1)+1 do if(isprime(5*k+6))then return k: fi: od: end: seq(A081759(n), n=1..100); # Nathaniel Johnston, May 28 2011
MATHEMATICA
Select[Range[300], PrimeQ[5# + 6] &] (* Ray Chandler, Dec 06 2006 *)
PROG
(Magma) [n: n in [0..300]| IsPrime(5*n + 6)]; // Vincenzo Librandi, Oct 16 2012
(PARI) is(n)=isprime(5*n+6) \\ Charles R Greathouse IV, Feb 17 2017
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Giovanni Teofilatto, Nov 21 2003
EXTENSIONS
Corrected by Ray Chandler, Nov 22 2003
STATUS
approved