|
%I #17 Dec 18 2022 20:01:08
%S 81,83,87,89,71,73,77,79,51,53,57,59,31,33,37,39,11,13,17,19,31,33,37,
%T 39,71,73,77,79,91,93,97,99,31,33,37,39,91,93,97,99,11,13,17,19,71,73,
%U 77,79,11,13,17,19,31,33,37,39,71,73,77,79,31,33,37,39,91,93,97,99,11
%N A nonsense sequence.
%t a={1, 3, 7, 9};
%t Flatten[Table[Mod[Abs[10-Prime[n]], 10]*10+a, {n, 50}]]
%Y Cf. A007652, A131712.
%Y Cf. A089787 (essentially the same).
%K nonn,base,less,uned
%O 1,1
%A _Roger L. Bagula_, Jan 09 2004
|
