login
A257053
Primes in enhanced squares representation, cf. A256913.
5
2, 3, 4, 1, 4, 3, 9, 2, 9, 4, 16, 1, 16, 3, 16, 4, 3, 25, 4, 25, 4, 2, 36, 1, 36, 4, 1, 36, 4, 3, 36, 9, 2, 49, 4, 49, 9, 1, 49, 9, 3, 64, 3, 64, 4, 3, 64, 9, 64, 9, 4, 2, 81, 2, 81, 4, 3, 1, 81, 16, 100, 1, 100, 3, 100, 4, 3, 100, 9, 100, 9, 4, 121, 4, 2
OFFSET
1,1
COMMENTS
A257070(n) = length of n-th row;
T(n,k) = A256913(A000040(n),k), k = 0..A257070(n)-1;
T(n,0) = A065730(n) for n > 2;
T(n,A257071(n)-1) = A257070(n).
LINKS
EXAMPLE
. n | prime(n) | ESR, row sum = prime(n)
. ---+----------+-------------------------
. 1 | 2 | [2]
. 2 | 3 | [3]
. 3 | 5 | [4, 1]
. 4 | 7 | [4, 3]
. 5 | 11 | [9, 2]
. 6 | 13 | [9, 4]
. 7 | 17 | [16, 1]
. 8 | 19 | [16, 3]
. 9 | 23 | [16, 4, 3]
. 10 | 29 | [25, 4]
. 11 | 31 | [25, 4, 2]
. 12 | 37 | [36, 1]
. 13 | 41 | [36, 4, 1]
. 14 | 43 | [36, 4, 3]
. 15 | 47 | [36, 9, 2]
. 16 | 53 | [49, 4]
. 17 | 59 | [49, 9, 1]
. 18 | 61 | [49, 9, 3]
. 19 | 67 | [64, 3]
. 20 | 71 | [64, 4, 3]
. 21 | 73 | [64, 9]
. 22 | 79 | [64, 9, 4, 2]
. 23 | 83 | [81, 2]
. 24 | 89 | [81, 4, 3, 1]
. 25 | 97 | [81, 16]
PROG
(Haskell)
a257053 n k = a257053_tabf !! (n-1) !! k
a257053_row n = a257053_tabf !! (n-1)
a257053_tabf = map (a256913_row . fromIntegral) a000040_list
CROSSREFS
%Cf. A256913, A000040, A065730, A257070 (traces), A257071 (row lengths).
Sequence in context: A363126 A363130 A325242 * A129717 A317088 A276380
KEYWORD
nonn,tabf
AUTHOR
Reinhard Zumkeller, Apr 15 2015
STATUS
approved