|
%I #10 Jul 22 2023 17:06:54
%S 2,4,6,8,10,12,14,16,18,20,22,24,27,29,31,33,35,37,39,41,43,45,47,49,
%T 51,54,56,58,60,62,64,66,68,70,72,74,76,78,81,83,85,87,89,91,93,95,97,
%U 99,101,103,106,108,110,112,114,116,118,120,122,124,126,128,130,133
%N A Beatty sequence for 10*i^i.
%C ii = 10Chop[ N[ I^I, 24], 10^-30]; Table[ Floor[n*ii], {n, 1, 70} ]
%H Harry J. Smith, <a href="/A064676/b064676.txt">Table of n, a(n) for n = 1..2000</a>
%o (PARI) { default(realprecision, 100); b=10*real(I^I); for (n = 1, 2000, write("b064676.txt", n, " ", floor(n*b)); ) } \\ _Harry J. Smith_, Sep 21 2009
%Y Cf. A064679, A049006.
%K easy,nonn
%O 1,1
%A _Robert G. Wilson v_, Oct 16 2001
|
