OFFSET
1,1
COMMENTS
Subsequence of A046136. - R. J. Mathar, Jan 14 2009
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MAPLE
isA046136 := proc(n) if isprime(n) and isprime(n+4) and isprime(n+10) then true; else false; fi; end: isA144594 := proc(n) if isA046136(n) and isprime(n+22) and isprime(n+24) and isprime(n+42) then true; else false; fi; end: for n from 2 to 1000000 do if isA144594(n) then printf("%d, ", n) ; fi; od: # R. J. Mathar, Jan 14 2009
MATHEMATICA
lst={}; Do[p=Prime[n]; If[PrimeQ[p+4]&&PrimeQ[p+10]&&PrimeQ[p+22]&&PrimeQ[p+24]&&PrimeQ[p+42], AppendTo[lst, p]], {n, 3*8!}]; lst (* Vladimir Joseph Stephan Orlovsky, Jan 15 2009 *)
Select[Prime[Range[44000]], AllTrue[#+{4, 10, 22, 24, 42}, PrimeQ]&] (* Harvey P. Dale, Oct 02 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Philip Mole (molep(AT)comcen.com.au), Jan 13 2009
EXTENSIONS
Definition corrected by N. J. A. Sloane, Jan 13 2009
Inserted missing values R. J. Mathar, Jan 14 2009
More terms from Vladimir Joseph Stephan Orlovsky, Jan 15 2009
STATUS
approved