|
%I #17 Aug 02 2021 16:47:55
%S 4,6,7,11,55,56,69,87,109,191,314,4579,6281,6400,23256,31648
%N Iccanobirt prime indices (13 of 15): Indices of prime numbers in A102123.
%C a(17) > 50000. - _Robert Price_, Nov 10 2018
%F A102123(a(n)) = A102163(n).
%t a[n_] := a[n] =
%t IntegerReverse[IntegerReverse[a[n - 1]] + a[n - 2] + IntegerReverse[a[n - 3]]];
%t a[0] = 0; a[1] = 0; a[2] = 1;
%t Select[Range[0, 5000], PrimeQ[a[#]] &] (* _Robert Price_, Apr 10 2020 *)
%Y Cf. A000040, A102123, A102131-A102145.
%K nonn,more,base
%O 1,1
%A _Jonathan Vos Post_ and _Ray Chandler_, Dec 31 2004
%E a(13)-a(16) from _Robert Price_, Nov 10 2018
%E Offset changed to 1 by _Jinyuan Wang_, Aug 02 2021
|
