OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..9999
EXAMPLE
a(1) = 3 = p1, a(2) = 5 = p2, a(3) = 7 = p3 because 3*3 - 2 = 2*5 - 3 = 7;
a(4) = 11 = p1, a(5) = 17 = p2, a(6) = 31 = p3 because 3*11 - 2 = 2*17 - 3 = 31.
MAPLE
for n from 1 to 500 do p1 := ithprime(n) ; p3 := 3*p1-2 ; if isprime(p3) then p2 := (p3+3)/2 ; if isprime(p2) then printf("%d, %d, %d, ", p1, p2, p3) ; end if; end if; end do: # R. J. Mathar, May 02 2010
MATHEMATICA
Flatten[Select[Tuples[Prime[Range[450]], {3}], 3First[#]-2==2#[[2]]-3== Last[#]&]] (* Harvey P. Dale, Jun 02 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Feb 01 2010
EXTENSIONS
Corrected (triples 7,11,19 and 167,251,499 inserted) and extended by R. J. Mathar, May 02 2010
STATUS
approved