1,2
Select[ Range[10^6], Mod[ Prime[ 3# ] - Prime[ 2# ], # ] == 0 & ]
Sequence in context: A103160 A126099 A063753 this_sequence A004192 A104143 A088812
Adjacent sequences: A066890 A066891 A066892 this_sequence A066894 A066895 A066896
nonn
Benoit Cloitre (benoit7848c(AT)orange.fr), Jan 24 2002
More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Jan 26 2002
Search completed in 0.002 seconds