[seqfan] Re: A173088 edited

[Richard Mathar]

kb> Date: Mon, 01 Mar 2010 17:20:17 +0100
kb> From: Klaus Brockhaus <klaus-brockhaus at t-online.de>
kb> User-Agent: Thunderbird 2.0.0.23 (Windows/20090812)
kb> To: Sequence Fanatics Discussion list <seqfan at list.seqfan.eu>
kb> Subject: [seqfan]  A173088 edited
kb> ...
kb> I tried to understand and edit A173088, but I get a sequence that has 
kb> very little in common with the original sequence. So maybe I made a 
kb> ..

What the author had probably in mind was "Numbers n such that n and n+5 are both
in A002822." The correct sequence starts

2,5,7,12,18,25,33,40,47,72,95,138,170,172,177,215,242,278,333,347,352,373,385,443,
495,550,555,560,588,637,670,688,705,707,753,975,1045,1110,1127,1243,1260,1433,1495,
1502,1572,1668,1673

Maple variant:
isA002822 := proc(n)
	if isprime(6*n-1) and isprime(6*n+1) then
		true;
	else
		false;
	end if;
end proc:
isA173088 := proc(n)
	isA002822(n) and isA002822(n+5) ;
end proc:
for n from 1 to 1700 do
	if isA173088(n) then
		printf("%d,",n) ;
	end if;
end do ;