OFFSET
1,2
MAPLE
isA140555 := proc(n) RETURN( isprime(n) and not isprime(n+6) ) ; end: A140555 := proc(n) option remember ; if n = 1 then 2; else for a from procname(n-1)+1 do if isA140555(a) then RETURN(a) ; fi; od: fi; end: A141426 := proc(n) A140555(n)-1 ; end: for n from 1 to 100 do printf("%d, ", A141426(n)) ; od: # R. J. Mathar, Aug 12 2008
CROSSREFS
KEYWORD
nonn
AUTHOR
Giovanni Teofilatto, Aug 06 2008
EXTENSIONS
Edited and extended by R. J. Mathar, Aug 12 2008
STATUS
approved